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Editorial 



Tras el interludio estival, he aquí un 
nuevo número de la revista 
predilecta de los usuarios del 
estándar MSX. 

En este número, observaréis dos 
novedades: La primera, tal vez un 
poco dolorosa, es el aumento de 
precio de la revista. La segunda, 
mucho más agradable, la constituye 
la publicación en las páginas 
centrales de un super-poster 
desplegable a color, que no es otra 
cosa que el mapa del videojuego 
que está causando furor en toda 
Europa, SUPER-RAMBO 
ESPECIAL. 

La primera -dolorosa- novedad, es 
inevitable. Nuestros lectores saben 
sobradamente que los productos 
de nuestra Editorial, siempre se 
han mantenido en la tónica del 
mínimo precio y máximas 
prestaciones, pero las constantes 
subidas de papel y costes de 
impresión nos obligan, muy a 
nuestro pesar, a incrementar el 
precio de nuestra revista; precio 
que aún así es ostensiblemente 
inferior al de otras similares. 
La segunda -agradable- novedad, 
constituye una auténtica primicia, 
ya que este juego todavía no se ha 
comenzado a distribuir en España, 
por lo que constituye una auténtica 
novedad. De todos modos, al habla 
con los importadores, hemos 
sabido que muy próximamente 
estará disponible en el mercado 
nacional. 

Y esto sólo es el preludio de una 
serie de novedades que se avecinan 
con la "rentree", y de las que 
podemos anticipar una de ellas: 
Una página de POKES DE VIDAS 
INFINITAS que se publicará mes 
a mes a partir del próximo. 
Hasta entonces. 
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Línea directa 



PIRATAS, PIRATAS 

Cuando cargo una cinta 
de juego de la casa KONA- 
MI, por ejemplo Soccer, 
Adéthic Land, Circus Char- 
ly, etc la carga se ejecuta de- 
bidamente hasta el final en 
la que el ordenador hace un 
reset. Al principio creí que 
esto era tallo del programa; 
pero probamos los progra- 
mas en otro ordenador sin 
ningún problema. 

José Román Alba 
Lora del Río (Sevilla) 

En primer lugar he de de- 
cirte que los programas de 
KONAMI para MSX, distri- 
buidos en España en exclusi- 
va porSERMA, no se comer- 
cializan en formato cinta. 

Se trata, evidentemente, 
de una copia pirata de los pro- 
gramas originales. 

Hemos repetido hasta la 
saciedad, en esta y otras sec- 
ciones de nuestra revista, que 
estos programas son fruto del 
ánimo de lucro de un peque- 
ño grupo de piratas CHAPU- 
CEROS que no conocen ni 
tan siquiera el ordenador con 
el que están trabajando. 

Estos piratas, con su forma 
chapucera de trabajo, empa- 
ñan la imagen del MSX, sem- 
brando el mercado de progra- 
mas que funcionan sólo en 
ciertos MSX, ya que no si- 
guen las normas que deben 
seguir los programas del es- 
tándar, y que cumplen a la 
perfección los programas ori- 
ginales. 

Como solución a tu caso 
hemos de decirte que busques 
en el futuro programas origi- 
nales, con todas las garantías 
de funcionamiento. 




¿Cómo se puede hacer 
mover, en cualquier direc- 
ción, un dibujo hecho con el 
macrolenguaje de gráficos 
(GML) de forma que no se 
borre y se vuelva a dibujar, 
sino que se mueva como si 
fuese un sprite? (cómo en el 
programa SIPPER). 



¿Cómo funcionan las ór- 
denes POKE, VPOKE, 
PEEK y VPEEK? 

¿Qué hay que pone en la 
etiqueta que hay que inser- 
tar en la cassette con juegos 
que os e ™°^ donde pone 

Juan Carlos Molinero 
Eibar (Guipúzcoa) 

Lo sentimos mucho; pero 
no se puede. Un dibujo crea- 
do con el GML sólo puede 
borrarse y volverse a dibujar; 
pero nunca desplazarse por la 
pantalla. 

Desconocemos lo que hace 
exactamente el programa 
SIPPER; pero te damos dos 
soluciones alternativas para 
realizar este movimiento, ya 
que, como te decimos, no lo 
podrás lograr con el GML. 

Una solución consiste en 
definir varios sprites con frag- 
mentos del dibujo, y colocar- 
los uno cerca de otro, de 
modo que formen una sola fi- 
gura de gran tamaño. Basta 
entonces desplazar todos los 
sprites al mismo tiempo. Esta 
última tarea puede hacerse en 
BASIC, pero si quieres elimi- 
nar totalmente la posibilidad 
de parpadeo deberás realizar 
una pequeña rutina en C.M. 

La otra üosible solución, 
sólo accesible desde C.M., 
consiste en almacenar el di- 
bujo en una zona de memoria 
y luego volcarlo muy rápida- 
mente en posiciones sucesi- 
vas de la pantalla, logrando 
así el efecto de movimiento. 

Respecto a las cuatro ins- 
trucciones que nos comentas, 
sirven para acceder y modifi- 




car la memoria, bien princi- 
pal, bien la VRAM. La ins- 
trucción POKE (o VPOKE) 
funciona de la siguiente ma- 
nera. 

POKE dir, dato 

Y lo que hace es colocar en 
la dirección especificada el 
dato indicado. 

En la memoria del ordena- 
dor, cada posición tiene una 
dirección, de modo que se 
pueda acceder a ella indivü 
dualmente. La instrucción 
POKE (o VPOKE) incorpora 
el dato especificado a esa po- 
sición de memoria. No es una 
instrucción que debas utilizar 
sin conocer exactamente lo 
que estás haciendo, ya que 
puedes perder los programas 
que haya en memoria en ese 
momento. 

Por otra parte, la instruc- 
ción PEEK (o VPEEK) per- 
mite conocer los contenidos 
de posiciones de memoria. 
Esta función retorna este 
utilizarse, 
por ejemplo, de esta forma: 

PRINT PEEK (dir) o bien 
A=PEE" 



donde dir es la dirección de 
memoria cuyo contenido 
queremos consultar. 

En cuanto a tu última pre- 
gunta, el espacio "Número de 
recepción" no debe ser relle- 
nado por los concursantes, 
sino que lo rellenamos noso- 
tros con un código que nos fa- 
cilita la clasificación de las 
cintas en todo el proceso que 
siguen hasta su publicación o 
su devolución. 



Tengo un HB-F500P de 
Sony y, después de haberlo 
llevado al servicio técnico 



or una avena, se me ínicia- 
a en SCREEN con 80 
columnas a diferencia de 
como lo hacía antes (37 co- 
lumnas). ¿Qué puedo hacer 
para remediarlo? 

¿Cómo se puede utilizar 
para un programa el reloj/ 
calendario incorporado? 
¿Para qué sirven las senten- 
cias SET TITLE, SET 



PROMPT, SET BEEP y 
SET SCREEN? 

El SCREEN 6 tiene 4 pá- 
ginas. ¿Qué quiere decir 
esto? 



Gijón 

Tu primera pregunta tiene 
respuesta dentro de tu segun- 
da pregunta. La instrucción 
SET SCREEN graba en la 
memoria permanente (RAM 
con baterías) la configuración 
actual de la pantalla, de 
modo que el ordenador vol- 
verá a ella nada más conectar- 
se. Es decir, si te colocas en 
SCREEN 1, con WIDTH24, 
y los colores que desees y rea- 
lizas la instrucción SET 
SCREEN, todos estos datos 
se grabarán, de modo que el 
ordenador se encenderá en 
SCREEN 1, con WIDTH 24 
y con los colores deseados. 
Ahora bien, esto sólo funcio- 
na en ordenadores MSX-2, 
como es tu caso. 

La instrucción SE1 
SCREEN almacena en la me- 
moria con baterías de tu 
MSX-2 los siguientes datos: 
modo de SCREEN, anchura 
del texto, colores (fondo, 
margen y texto), teclas de 
función ON/OFF, sonido de 
las teclas ON/OFF, tipo de 
impresora, velocidad de gra- 
bación de los programas en 
cassette y el modo de visuali- 
zación. Te recomendamos 
que consultes tu manual para 
obtener una mayor informa- 
ción sobre esta instrucción. 

Algo similar hace el resto 
de instrucciones sobre las que 
nos preguntas. SET TITLE 
permite que introduzcas un 
mensaje de presentación que 
aparecerá cuando enciendas 
la máquina. SET PROMPT 
te permite modificar el men- 
saje "Ok" del BASIC y utili- 
zar la palabra que quieras, 
vomo "Vale." o "¿Qué hay de 
nuevo viejo?". Por último, 
SET BEEP te permite modi- 
ficar el tipo de sonido y el vo- 
lumen del pitido que emite el 
ordenador. 

Respecto a las páginas de 
VRAM. Que un SCREEN 
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tensa 4 páginas significa que 
en La VRAM puede haber 4 
dibujos simultáneamente en 
ese SCREEN. Sólo puedes 
ver uno de ellos en tu moni- 
tor, pero puedes realizar has- 
ta 4 dibujos, e intercambiar- 
los, de forma instantánea, 
cuando lo desees. Un ejemplo 
de la utilización de las pági- 
nas de memoria apareció en 
el número 32-33 (Julio) de 
nuestra revista hermana 
MSX-EXTRA, dentro de la 
sección específica para los 
MSX-2, "MSX Segunda Ge- 
neración". 



TEST PE LISTADOS 

Tengo un problema con 
dos programas que publica- 
ron nace un par de meses: el 
programa "Convoy" y el 
"Palomitas". Aunque am- 
bos programas fueron repa- 
sados gracias al "Test de Lis- 
tados" cuando voy a ejecu- 
tarlos aparecen los siguien- 
tes errores. 

En el programa CON- 
VOY, cuando el camión 
choca con una de las minas 
aparece FILE NOT OPEN 
IN 1230. 

1230CO=8:C1 = 11:FOR 
N=1TO25:PUTSPRITE1, 
(CX,96),C0,1:PUTSPRITE 
2,(CX,96),C1,2. 

En el programa PALO- 
MITAS aparece SYNTAX 



1480 PLAY M5$: 



M. a Carmen U. Iglesias 
Granada 

El TEST DE LISTADOS 
es una excelente herramienta 
para detectar los errores co- 
metidos al transcribir los pro- 
gramas de la revista a vues- 
tros ordenadores. 

Sin embargo, no es perfec- 
to. El test de listados utiliza 
el sistema de CHECKSUM 
(suma de control) para com- 
probar que los datos sean co- 
rrectos. Este sistema es inca- 
paz de detectar el intercam- 
bio de orden de letras y algu- 
nos otros errores que se com- 
pensan entre sí. 

Normalmente el único 
error no detectado por el test 
es el de intercambio de letras 
o dígitos; pero éste es fácil- 
mente detectable con sólo ob- 
servar detenidamente el lista- 
do. 

En caso de no encontrar- 
se la fuente del error es una 
buena práctica borrar de 
nuestro programa la línea 
del error, así como la ante- 
rior y posterior, y volverlas a 
transcribir en su totalidad. 

Te explicamos todo esto 
porque el primer error que 
nos comentas sólo puede ser 
debido a una causa, que una 
de las palabras SPR1TE esté 
mal escrita. Suponemos, ya 
que el TEST DE LISTADOS 



uno 
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ERRORES DE CARCA 



Hace poco compré el jue- 
go "DROME" y al cargarlo 
sale el siguiente mensaje en 
la pantalla. 

CHECKSUM ERROR 
B0303030300004141 DRO- 
ME PRG" 

¿Qué significa este men- 
saje? ¿Por qué sale? ¿Qué 
hay que hacer para arreglar- 
lo? 

Jordi Moreno Capdevila 
Barcelona 

Qué significa exactamente 
ese mensaje creo que es un 
enigma que acosa a más de 
(m nosotros mismos, por 



ejemplo). Evidentemente in- 
dica que se ha producido un 
error en la verificación del 
programa. 

Este error sólo puede ser 
producido por dos causas. La 
primera, y la más lógica tam- 
bién, es que se trate de un 
error de carga. Intenta ajus- 
tar adecuadamente el azimut 
de tu cassette, así como el vo- 
lumen, y asegúrate de que los 
cabezales estén limpios. Tras 
esto el programa debería car- 
gar correctamente. 

Puede ocurrir, aunque esto 
es menos probable, que se 
trate de un error en la cinta, 
en cuyo caso te cambiarían el 
programa por otro nuevo en 
la tienda en la que lo adqui- 
riste. 



no detecta el error, que ha- 
brás escrito sin darte cuenta 
algo como SPIRTE, y que al 
transcribirlo a la carta que 
nos envías corregiste sin dar- 
te cuenta ese mismo error. Es 
esta la única explicación 
coherente, ya que la línea que 
nos has enviado escrita a 
mano es totalmente correcta, 
y no contiene ningún error. 

Respecto al programa PA- 
LOMITAS, debe tratarse de 
un error similar, aunque en 
este caso no hay que buscarlo 
en la línea 1480, sino proba- 
blemente en la línea en que 
se define la variable M5$. 

Esperamos que con esto 
puedas solucionar los proble- 
mas con tus programas. 

CARTUCHOS PE MEMORIA 

¿Qué he de hacer para al- 
macenar un programa en un 
cartucho? ¿Hace falta algún 
periférico especial, o basta 
con insertar el cartucho? 

Dispongo de un cartucho 
"virgen" HBI-55. En el fo- 
lleto de instrucciones del 
cartucho pone para los or- 
denadores HB-55P y HB- 
75P. ¿Es este cartucho com- 
patible con mi HB-20P? 

Lisardo Rodríguez López 
ORENSE 

En el mercado español to- 
davía no existen los cartuchos 
de lectura/ escritura con me- 
moria permanente. Lo único 
que existe en la actualidad 
son los cartuchos de amplia- 
ción de memoria RAM. 

El cartucho que nos co- 
mentas entra dentro de este 
segundo grupo. Este tipo de 
cartucho simplemente au- 
menta la memoria RAM to- 
tal del sistema. Para el usua- 
rio que programa en BASIC 
el cartucho no tiene ninguna 
utilidad, ya que la memoria 
máxima utilizable por el BA- 
SIC permanece inalterable. 

Sin embargo los programas 
en C.M. poarán hacer uso de 
esta memoria adicional. No 
existe ninguna diferencia de 
utilización entre esta memo- 
ria externa y la interna con la 
que ya cuenta el equipo, a ex- 
cepción de la localización de 
esta memoria en los SLOTS. 



Finalmente decirte que 
este cartucho de ampliación 
de memoriá es adecuado a to- 
dos los MSX, ya que los peri- 
féricos MSX son totalmente 
compatibles entre las diferen- 
tes marcas de aparatos que 
componen la norma. 

SPACEBARY 



Tengo un ordenador HB- 
20 1P y he comprado el jue- 
go "Green Beret". Tras la 
primera pantalla se me pide 
que pulse SPACEBAR, y no 
encuentro esta tecla en mi 
ordenador. 

¿Qué es un módem o aco- 
plador acústico? 

¿Qué son las tarjetas Soft- 
card y Bee Card? 

David Martínez López 
Sevilla 

Pensábamos que era de 
cultura general, y conocido 
por todos, que la tecla SPA- 
CEBAR es la barra espada- 
dora, la tecla del espacio en 
blanco. Esperamos que ahora 
puedas continuar con el juego 
sin problemas. 

Creemos que el resto de tus 
preguntas son algo más inte- 
resantes. 

No hay que confundir -aun- 
que mucha gente lo haga- en- 
tre MODEM y acoplador 
acústico. Aunque su utilidad 
es la misma difieren por la 
forma en que llevan a cabo su 
cometido. 

Ambos son aparatos encar- 
gados de comunicar entre sí 
ordenadores separados gran- 
des distancias. La comunica- 
ción se lleva a cabo mediante 
la línea telefónica. En este 
caso, como si de dos personas 
se tratara, los ordenadores se 
comunican entre sí, inter- 
cambiándose programas, da- 
tos e instrucciones. 

Los acopladores acústicos 
convierten las señales del or- 
denador en ruidos similares a 
los del cassette convencional. 
Estos "ruidos" son los que se 
envían a través de la línea te- 
lefónica para que el acoplador 
acústico receptor los vuelva a 
convertir en datos digitales 
inteligibles por el ordenador. 

Los acopladores acústicos 
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no son aparatos excesivamen- 
te complicados, y su precio no 
suele ser muy elevado (máxi- 
mo 50.000 ptas. afrente a las 
más de 100.000 de un buen 
MODEM). Tenemos ade- 
más, de primera mano, la no- 
ticia de la próxima aparición 
de un acoplador acústico para 
MSX de la mano de Mind 
Games, que estamos esperan- 
do con verdadera impacien- 
cia. 

Los MODEM, en cambio, 
convierten la señal del orde- 
nador en una señal modula- 
da. Algo asi como las ondas 
de radio; pero que se transmi- 
ten por el hilo telefónico. 
Este tipo de codificación per- 
mite que la velocidad de 
transmisión sea mucho más 
alta y segura, ya que un MO- 
DEM puede alcanzar fácil- 
mente los 9600 baudios 
mientras que un acoplador 
acústico suele rondar entre 
los 300 y los 1200 en el mejor 
de los casos. 

Respecto a tu última pre- 
gunta, los adaptadores de tar- 
jetas inteligentes, Bee Card y 
Softcard son unos adaptado- 
res que permiten la conexión 
a cualquier MSX de las tarje- 
tas antedichas. 

Las tarjetas son memorias 
ROM de pequeño tamaño, es 
decir, cartuchos de ROM en 
miniatura, pero con sus mis- 
mas características. Su peque- 
ño tamaño y su gran resisten- 
cia les dan una gran fiabili- 
dad. Pese a que se pensó en 
un principio que serían bas- 
tante más baratas que los car- 
tuchos de ROM, el hecho de 
no haber tenido una excesi- 
vamente amplia aceptación 
no ha permitido que dismi- 
nuya su precio, al menos por 
el momento. 

Otra de las grandes venta- 
jas de las tarjetas es que exis- 
ten modelos que permiten la 
lectura y escritura permanen- 
te por el usuario, lo que los 
convierte en un excelente 
medio para almacenar pro- 
gramas. La carga y grabación 
de programas, como en un 
cartucho ROM, es instantá- 
nea. 

Por último decirte que los 
adaptadores Softcard y Bee 
Card puedes adquirirlos a tra- 
vés de nuestro Club de Mai- 
ling. Ambos tienen el mismo 
precio, 
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T.N.T. Termina con los peligros del castillo 
tenebroso armado con los barriles de T.N.T. 
Pero ¡ten mucho cuidado! Manipular los ex- 
plosivos es muy peligroso, y cualquier des- 
cuido puede ser fatal. PVP. 1.000 Pts. 




LOTO. Este es el programa que estaban espe- 
rando los usuarios de MSX para nacerse mi- 
llonarios cuanto antes. El complemento 
ideal a nuestro programa de quinielas, con el 
que más de un lector se ha hecho rico. PVP. 
900 Pts. 




CON G/ 

/HAMAFTAN 



DEVTL'S CASTLE. La más original, amena y 
entretenida aventura hecha videojuego. 
Eres un mago que debe romper el hechizo de 
un castillo endemoniado, para lo cual... Exce- 
lentes gráficos y acción a tope. PVP. 900 Pts. 




SKY HAWK. ün magnifico Juego de simula- 
ción de vuelo. En él te conviertes en un piloto 
que ha de derribar al enemigo y regresar al 
portaaviones sano y salvo. PVP. 1.000 pts. 



VAMPLRE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 



Si 



PARAMSX-1 




WHARD 

*m C0 PY 



LORD WAT80N. Este es un Juego muy original 
que combina el laberinto con las palabras 
cruzadas. Los obstáculos fantásticos y el vo- 
cabulario son los alicientes . PVP. 1.000 pts. 



POR JOAQUIN LOPEZ 

Menú* por ventana* tre» 
formatoa de copla* simulación 
en blanco y nafro • copia 
• prltes redarme colorea 
compatible con cualuuior 
impresora matrlctal 



CON GARANTIA 

/MANHAT1AN TR4NSFERSA 



HARD C0PY. Para copiar pantallas. Tres 
formatos de copias, simulación por blanco y 
negro, copla sprites, redefinic. de colores, 
las impresoras ma- 



MARCIANO? 





MATA MARCIANOS. Dn Juego clásico en una 
versión cuya mayor virtud es su diabólica ve- 
locidad que aumenta a medida que superamos 
las oleadas de los invasores extraterrestres 
PVP. 900 pts. 



¿Cómo corregir los errores 
de transcripción de los 
programas? 
La solución a los errores en 
los programas es este TEST 
DE LISTADOS. 



CON GARANTIA 



TEST DE LISTADOS. El segundo programa de 
la Serie Oro es el útilísimo Test que te permi- 
tirá controlar la corrección í 
mas que copíese 
PVP. 500 Pts. 
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KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un Juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP. 500 Ptas. 



U-BOOT. Sensacional Juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP 700 Ptas. 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 



SNAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP. 600 Ptas. 




EL SECRETO DE LA PIRAMIDE. Atrevido 
Juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
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STAR RUNNER. Conviértete en el audaz 
piloto Interestelar y lucha a muerte, a 
través del hiperespacio . contra las defen- 
sas del Urano Daurus. Dos pantallas y 
cinco niveles de dificultad. PVP. 1.000 pts. 

Si quieres recibir por correo certificado estas cassettes garandadas recorta o copia este boletín y envíalo hoy mismo: 



FLOPPY, El Preguntón. On verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costará 
mucho superarlo. PVP. 1.000 Ptas. 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión. Diez niveles 
de dificultad. PVP 1.000 pts. 



Nombre y apellidos: 



1 



Dirección: 
Población: 



• ■•**■••• < 



I 



□ 

n 
□ 



KRYPTON 

UBOOT 

HARDCOPY 









□ LORD WAT80N 

□ LOTO 

□ SNAKE 



..Ptas. 500- 
Ptas. 700- 
Ptas. 2.500,- 

. Ptas. 1.000,- 
Ptas. 900.- 
Ptas. 600.- 



□ 
□ 
□ 
□ 
□ 

n 
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EL SECRETO DE LA PIRAMIDE 
STAR RUNNER 



TEST DE LISTADOS 
MATA! 
DEVLL'E 
FLOPPY 



**ov 

Ptas. 700,- [ 

... Ptas. 1.000- 
. Ptas. 500,- 
Ptas. 900,- 
Ptas. 900- 
Ptas. 1.000,- 



Tel.: 



MADFOX 
VAMPIRO 



□ SKYHAWK . 

□ TNT 



Ptas. 
Ptas. 
Ptas. 



1.000,- 
800- 
1.000,- • 
1.000,- 



I Gastos de envió certificado por cada cassette 



.... Ptas. 70,- Remito talón bancario de Ptas. 



a la orden de Manhattan Transfer, S Aj 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 
IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 
Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



— 



— 



Tablón de anuncios^— 

Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las características 
de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y copia de software original es 
un acto delictivo perseguido por la ley. 



Vendo ordenadores X'PRESS 
MSX y SONY HB-F500P, im- 
presora plotter Sony, unidad de 
disco Sony con sistema operati- 
vo. Regalo programas como 
Dbase-H, Ensamblador Champ, 
Procesador de textos. Francis- 
co Simón. Tel.: (91) 645 83 61. 
Móstoles. MADRID. CP.l. 
Vendo revistas MSX. José Vte. 
Planelles Alagarda. C/. Jesús 
Morante Borras, n.°211. 46012 
VALENCIA. CP.l. 
Vendo Sony HB-75P en per- 
fecto estado por 45.000 Ptas. 
Regalo manuales de funciona- 
miento y cartucho de amplia- 
ción de memoria (Data cartrid- 
ge de 4 Kb). Mariano Juan 
González Martínez. C/. Dr. 
Profesor Severo Ochoa, 12, 4.°, 
9.'. 46010 VALENCIA. Tel.: 
(96) 360 06 46. CP.l. 
Compro ampliación de memo- 
ria de 64 Kb HBM-64 u otra 
marca. También compro cartu- 
chos de juegos (sólo en formato 
cartucho). Jorge García Fer- 
nández. Pza. de los Mil Delega- 
dos, n.° 1, 3.°-A. 28031 Ma- 
drid. Tel.: (91)211 65 67. CP.l. 
Vendo o cambio programas 
MSX-2. Poseo RED LIGHTS 
OF AMSTERDAM, CHOP- 
PER H, BADMAX, LAY- 
DOCK, NEMESIS, etc. Cada 
uno 2.000 ptas. Antonio Mu- 
ñoz Rando. C/. Energía BL/M 
Esc/1,10-2. . 08004 Barcelona. 
Tel.: 332 72 34. CP.l. 
Cambio juegos en cinta (Fer- 
nando Martín, Who Dares 
Wins II, Zanac, etc.) por NE- 
MESIS (cartucho). José Her- 
nández Mayor. C/. Fulgencio 
Miñano, 32. Molina de Segura. 
MURCIA/ CP.l. 
Vendo 20 programas originales 
de KONAMI por sólo 3.950 
ptas. Martín López Corredoira. 
Polígono del Ceao, 71. LUGO. 
CP.l. 

Intercambio programas, trucos 
e ideas para los usuarios de 
MSX y MSX-2, en disco de 
3.5", cinta o cartucho. Julián 
Carrión Camón. La Palma. 
30593 Cartagena. MURCIA. 
CP.l. 

Vendo ordenador Sony HB- 
55P nuevo y barato. Ándoni 
Regó Etxebarria. C/ Aróstegui, 
35. Bermeo. 48379 Vizcaya. 
CP.l. 

Vendo ordenador Spectravi- 
deo 728 MSX de 80 Kb con ca- 
bles, manuales y garantía por 
sólo 21.500 ptas. Regalo gran 



cantidad de revistas y progra- 
mas originales. Llamar de 9 a 
10 de la noche al Tel.: (972) 50 
96 57. CP.l. 

Vendo ordenador Sony HB- 
55P + ampliación a 32 Kb + 
TV Philips B/N + Plotter Sony 
PRN-c41 por 50.000 Ptas. Ma- 
tías Zaya Méndez. Málaga. 
Tel.: 44 5429 de 6 a 9 delatar- 
de. CP.l. 

Vendo ordenador Sony Hb- 
101P con embalaje original, ex- 
pansión de memoria HBM-64, 
cassette Panasonic RQ-8100, 
instrucciones, cables, 2 libros, 
revistas, más de 50 juegos, joys- 
tick Quickshot II MSX por 
55.000 ptas. negociables. Lla- 
mar al tel.: (977) 44 24 59. Ma- 
nuel Romeu. Tortosa. Tarrago- 
na. CP.l. 

Vendo unidad de discos 5.25 
pulgadas por 35.000 ptas. 
(adaptable a todos los MSX). 
100 discos grabados por 30.000 

Btas. Todo por 60.000 ptas. 
ínidad de disco Philips con 
controlador por 40.000 ptas. 
Compro unidad de disco doble 
cara y ampliación de memoria 
86 K. Carlos Delgado. Pablo 
Ruiz Picasso 12. 50015 ZARA- 
GOZA. Tel.: (976) 51 22 97 
tardes. CP.l. 

Intercambio información y 
programas con usuarios del 
SVI-328. Prometo contestar. 
Manual Aranda Fontecha. C/. 
Arroyo de San Pedro, 14, l.°-A. 
23003 JAEN. CP.l. 
Cambio MASTER OF THE 
LAMPS (original) por cual- 
quiera de los siguientes (tam- 
bién originales): Herd, Beamri- 
der, Knight Time, Lothlorien, 
Viaje al centro de la Tierra, Sky 
Jaguar o Némesis. Javier Men- 
doza. C/. S. Cipriano, n.° 11. 
Atico, 2. a . Llefía. Badalona 
(BARCELONA). Tel.: (93) 
387 9828. CP.l. 
Contactamos con otros Clubs 
MSX. MSX CLUB. Avda. Ca- 
talunya, 64. Sant Feliu de Codi- 
nes. 08182 BARCELONA. 
CP.l. . 

Contacto con usuarios de orde- 
nadores MSX-2 para poder in- 
tercambiar opiniones, progra- 
mas, listados y quizá formar un 
Club. Sergio Mojón Suárez. C/. 
Iglesia Nueva n.° 13, 1.° Drcha. 
Sada. La Coruña. Tlf: (981) 62 
32 55. CP.l. 

Compro o cambio por progra- 
mas el libro "MSX. 30 rutinas 
de utilidad en Código máqui- 



na", autor Steve Webb, edi- 
torial RAMA. Algunos de los 
programas que poseo para 
intercambiar por este libro son: 
Colt 36, Gauntlet, Boulder 
Dash II, Martiannois, Survival, 
H.E.R.O., etc. Gonzalo Már- 
quez Benítez. C/. Ntra. Sra. 
Merced s/n. 14014 Córdoba. 
Tlf: 25 83 48. CP.l. 
Cambio juegos originales en 
cinta de todo tipo. Poseo entre 
otros: Camelot Warriors, Alien 
8, Fernando Martín, Green Be- 
ret, etc. No interesan listables. 
Milko Burón. Tlf: (947) 20 50 
90 y 21 48 13. C/. Regino Saiz 
de la Maza, n.° 6 3°Á. 09005 
Burgos. CP.l. 

Cambio máquina CAPTAIN 
25 por NEMESIS o THE 
CHESS. 25 niveles de juego. 
Regalo pilas nuevas. José A. 
Treus Sieira. C/. Rodrigo A. de 
Santiago, 51. 15010 La Coruña. 
CP.l. 

Cambio juegos originales para 
MSX: Knightmare, Yie ar 
Kung Fu (I y II), Who Dares 
Wins II, etc. Me interesan todo 
tipo de programas: juegos, edu- 
cativos, de gestión, o aplicacio- 
nes. David Rubio Riera. Avda. 
Manuel Girona 54-56. Esc. A. 
5.° 2. a . 08860 Castelldefels 
(Barcelona). Tlf: (93) 665 48 
94. CP.l. 

Vendo Spectrum Plus, impre- 
sora Seikosha GP-50S, cassette 
computone, más de 120 juegos 
y revistas Microhobby (del 1 al 
último). Eduardo. Tlf: (96) 585 
59 62 a partir de las 20 h. 
Cambio o vendo baratos toda 
clase de juegos originales. Po- 
seo últimas novedades. Tlf: 
(986) 88 29 82. Oscar. CP.l. 
Vendo 20 cintas originales con 
un total de más de 150 juegos 
por sólo 10.000 ptas. Juan Car- 
los Enrique. C/. La Carrera 2-5. 
Burriana (Castellón). Cód. Pos- 
tal 12530. CP.l. 
Cambio/ vendo juegos origina- 
les para MSX. También inter- 
cambio ideas y trucos para 
Club de Usuarios de Marín. 
Poseemos los mejores títulos: 
Desolator, Profanation, Phan- 
tomas II, Green Beret, etc. Tlf: 
(986) 88 24 51. Preguntar por 
Antonio a partir de las 9.30. 
CP.l. 

Vendo curso de programación 
BASIC MSX en 2 cintas de ví- 
deo de la marca Sony para el 
sistema BETA, por 7500 ptas, 
la mitad de su valor. Sin usar. 



Enrique Pérez Molina. Sant 
Lluis, 54 4-3a. 08850 GAVA 
(Barcelona). CP.l. 
Cambio/vendo programas ori- 
ginales para MSX. Tengo más 
de 200. José A. Alonso. Av. Sa- 
lamanca n.° 60 baj. A. Cod. 
Postal 37006. Tlf: (923) 
247057. SALAMANCA. CP.l. 
Vendo Sony HB-75P, cartucho 
de ajedrez, manuales. Todo en 
perfecto estado por 35.000 
ptas. Carlos de la Fuente Díaz. 
C/. Rodrigo A. de Santiago n.° 
16, 4.° izda. 15010 La Coruña. 
Tlf: (981)264066. CP.l. 
Cambio programas originales 
MSX o CP/M en discos de 3.5 
pulgadas. Juan Díaz-Busta- 
mante Berasategui. Francisco 
Díaz 4-6. 39300 Torrelavega 
(Cantabria). Tlf: (942) 882867. 
CP.l. 

Cambio vendo programas ori- 
ginales. Poseo más de 200, en- 
tre ellos Zanac, Knight Mare, 
Cyberun, Goonies,... y utilida- 
des. En cinta y diskette. Prome- 
to contestar a todas las cartas. 
Daniel Albert Tomás. Pza. Su- 
fragio 11-60 16 a. 46600 Alzira 
(Valencia). Tlf: (96) 241 14 20. 
CP.l. 

Contacto con usuarios de MSX 
para intercambiar programas 
originales. Poseo más de 100, 
todos ellos de calidad. Manolo 
López Martín. Avda. Europa, 
161, 7.° 2. a . Hospitalet de Llo- 
bregat. 08907 Barcelona. CP.l. 
Busco programa astrólogo para 
ordenador MSX, con el que po- 
der hacer horóscopos. Jeannet- 
te Van Eijk. Lista de Correos. 
C.ambrils (Tarragona). CP.l. 
Vendo ordenador Spectraví- 
deo 328 con su cassette SV- 
904, además de juegos origina- 
les, un libro de programación, 
documentación y un joystick 
Quickshot II. Todo 27.000 
ptas. Jesús Corrales Ruiz. C/. 
Obieta, 44. Erandio. 48950 
Vizcaya. CP.l. 

Vendo/ cambio juegos origina- 
les MSX con usuarios de todo 
DONOSTI. Poseo casi todas 
las novedades en MSX. Tlf: 39 
63 36, 28 36 83. Preguntar por 
JON. De 10 a 11.30 noche. 
CP.l. 

Vendo ordenador MSX Spec- 
travídeo 728 de 80 Kb con ca- 
bles, manuales, y garantía por 
sólo 21.500 ptas. Regalo gran 
cantidad de revistas y progra- 
mas originales. Llamar de 9 a 
10 de la noche al (972) 50 9657. 
CP.l. 
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Intercambio juegos originales 
MSX. Tengo primeras marcas, 
tales como: Arkanoid, Knight 
Lore, Fernando Martín Basket, 
The Way of the Tiger, y un lar- 
go etc. Manuel Romeu Arbios. 
C/. María Rosa Molas n.° 27. 
43500 Tortosa (Tarragona). 
CP.l. 

Intercambio trucos, conoci- 
mientos, etc. Poseo POKES 
antilistado, antibrequeo, etc. 
Me gustaría contactar con 
usuarios del MSX en Villa-Real 
o Castellón. Animaros y escri- 
bidme o id a C/. Fábrica n.° 6, 
l.°C. CP.l. 

Vendo y cambio juegos origi- 
nales de la talla de Game Over, 
Army Moves, etc. También 
cambio por Hardware (cartu- 
chos, plotters, etc). Jesús Bied- 
ma. C/. La Miranda n.° 69. En- 
do. 3a. Cornellá. Barcelona. 
CP.l. 

Vendo Sony HB-55P+amplia- 
ción de memoria a 32 Kb por 
15.000 ptas. Luis Marco. Tlf: 
(91) 120 2158. Horas de comi- 
da. CP.l. 

Vendo Philips VG-8010 (48 
Kb RAM), cables, transforma- 
dor, más de 80 programas ori- 
ginales, libros "Dimensión 
MSX" (Ingelek) y "MSX. Pro- 
gramación, gráficos, colores y 
música", manuales. Todo por 
35.000 ptas (incluido IVA y ga- 
rantía). Totalmente nuevo. Vi- 
cente Antonio Uceda. Tlf: (91) 
682 17 76 de 18:00 a 20:30 h. 
C/. Casiopea n.° 21. Getafe. 
28905 Madrid. CP.l. 
Cambio 737 Flight Simulator 
(Microsoft) por Green Beret 
(Konami}. Víctor Ginés. Avda. 
Monseñor Escriba, 55 -B. Bar- 
bastro (HUESCA). Tel.: (974) 
3137 07.CP.2 

Vendo Sóny HB-75P de 80 Kb 
con Personal Data Bank, funda 
para el teclado, cassette Sony 
Bitcorder SDC-500, Joystick 
Amstick, juegos originales de 
Konami, un ralentizador de 
movimientos gráficos, manua- 
les del ordenador y del cassette. 
Por cambio de ordenador, todo 
por 39.000 ptas. Javier Loconte 
Martín. TeL: (93) 334 47 62. C/ 
Laurel, 8, l.°-3. a . Hospitalet 
de Llobreeat. BARCELONA. 
CP.2 

Club Entorno-MSX quiere 
contactar con usuarios del sis- 
tema para intercambiar infor- 
mación, trucos e ideas. Además 
es posible que consigamos des- 
cuentos en ordenadores, peri- 
féricos y accesorios MSX. C/. 
Olivera, 10, 2.°, 2. a . 08004 Bar- 
celona. Tel.: (93) 329 75 45. 
CP.2 



Vendo Sony HB-75P de 80Kb 
seminuevo, cables de conexión,, 
manuales, revistas, varios pro- 

f ramas comerciales y joystick. 
bdo por 40.000 ptas. Antonio 
Ramos. Avda. Cataluña, 18, 5.°, 
4.* Rubí. BARCELONA. Tel.: 
699 9109. CP.2 

Vendo ordenador SONY MSX 
de 32 Kb de memoria. Práctica- 
mente nuevo. Incluye manuales 
de utilización, programas de 
utilidades y selector de antena. 
Todo por 10.000 ptas. Francis- 
co Rubio. Paseo San Vicente, 
36-40, 4.°-B. 37007 SALA- 
MANCA. Tel.: (923) 23 39 46. 
CP.2 

Vendo programas MSX origi- 
nales: Head Over Heels, La 
Venganza, Panic in Vegas, Roc- 
ket Roguer, Eggv, Zoids. Tam- 
bién vendo el libro " 18 juegos 
dinámicos para tu MSX" de 
Ed. Noray. Antonio. Ciudad 
Cooperativa, 46, 5.°, 2. a . Sant 
Boi. 08830 BARCELONA. 
Tel.: (93)652 16 94. CP.2 
Vendo Philips VG-8020 con 
instrucciones, manual BASIC, 
cables + lectograbadora NMS- 
1515 Philips especial para or- 
denador + libro de código má- 
quina + cartucho de Konami 
+ cassette original Night Sha- 
de. Todo por 39.000 ptas. Re- 
galo un montón de revistas 
MSX y además entrego a domi- 
cilio para Alava, Guipúzcoa y 
Vizcaya (posible otras zonas). 
Llamar de 9 a 11 noche. Tel.: 
(943) 42 00 84, si no (943) 60 33 
14. Iosu Arrióla. 
24. Mendaro. Gl 
CP.2 

Vendo ampliación de memoria 
de 16 Kb (HBM-Sonv) por 
3 .000 ptas. o bien la cambio por 
una hoja de cálculo en cartucho 
o cinta. Arturo Romero Váz- 
quez. C/. Arturo Campión n.° 
4, 5.°-B. 20300 Irún. GUIPUZ- 
KOA. CP.2 

Contacto con chicos y chicas 
usuarios del MSX de Beniajan 
o alrededores para formar un 
club de amigos del MSX. Do- 
mingo Lajarín García. C. a de 
los pinos, Carril de los tonos n.° 
2. Beniajan. Murcia. Tel.: 82 18 
90. CP.2 

Cambio bajo eléctrico, color 
negro, marca Ventury en buen 
estado y con estuche y cables, 
valorado en 45.000 ptas. por 
monitor en color de cualquier 
marca que esté en buen estado. 
José Antonio Martín. Ander 
Deun Kalea, n.° 1, 2.° izq. Ber- 
meo. (Vizcaya). Tel.: (94) 688 
22 97. CP2 

Vendo por no usar, HB-10P 
Sony 80 Kb con garantía' ofi- 
cial. Está totalmente nuevo, sin 




apenas usar. Además doy Da- 
tassette y 60 programas (Kona- 
mi, Dinamic,..). Interesados di- 
rigirse a Feo. C/. Príncipe Ver- 
gara, 40. Hospitalet. (Barcelo- 
na). Tel.: (93) 337 27 22. CP.2 
Vendo ordenador Sony (32 Kb 
RAM) + cartucho de amplia- 
ción ( 16 Kb RAM) + lote de 10 
juegos de Konami por 11.500 
ptas. Víctor Manuel Etxebe- 
rria. C/. 
4-D. 
KOA. CP.2 

Vendo ordenador SVI-738 
X'PRESS con muchos progra- 
mas (juegos y utilidades) en dis- 
co. También monitor Dynadata 
DM-120MR. Precios a conve- 
nir. Luis Alberto Pérez Pérez. 
C/Ebro n.° 7 5.° B. 47013 Va- 
Uadolid. Tlf: (983) 235936, 
CP.2 

Vendo los mejores juegos origi- 
nales MSX (ARMY MOVES, 
JACK THE NIPPER, 
GROG'S REVENGE, FUTU- 
RE KNIGHT, NIGHTSHA- 
DE,...) al precio más barato. 
Miguel Javier Tormo Goñi. 
Gt. a Puente Segovia, 1.°, 6. a -C. 
28011 MADRID. Tel.: 463 10 
84. CP.2 

Intercambio programas de 
aplicación (procesador de tex- 
tos, hoja de cálculo, base de da- 
tos, gráficos, etc.). José Carlos 
Camacho Pérez. C/. Larga, n.° 
52. 21830 Bonares (HUEL- 
VA). Tel.: (955) 3661 69. CP.2 
Compro ampliación de memo- 
ria RAM 64 Kb con precio a 
convenir. José Carlos Camacho 
Pérez. C/. Larga, n.° 52. Bona- 
res. 21830 HUELVA. Tel.: 
(953) 36 61 69. CP.2 
Cambio Philips VG-8020 con 
cables conexión, más cassette, 
varios juegos Konami, por ór- 
gano o sintetizador que posea 
midi, preferentemente Casio 
(serie Cz) o Yamaha (series Psr 
o DX). Tel.: (93) 431 18 72. 
Barcelona. CP.2 
Vendo X'press SVI738 MSX 
(Drive de 720Kb) con discos y 
manuales y monitor de fósforo 
verde K-40. Todo 85.000, sólo 
ordenador 70.000 pesetas. Muy 
poco uso, en garantía, compra- 
dos en febrero '87. Regalo pro- 
gramas. Tel. (974) 820869. 
CP.2 

Vendo en perfecto estado por 
compra de un MSX -2, Ordena- 
dor Philips VG-8020 80K, te- 
clado profesional, con manual 
Basic y cables de conexión. Re- 
galo con el ordenador los si- 
guientes programas: Knight 
Mare, Soccer, La Pulga, King's 
Valley, Green Beret, Hiper Ra- 
lly, Super Cobra, Yie Ar, Kung 
Fu n. Todo por sólo 18.000 pe- 
setas. CP.2 



Vendo cartucho SONY de am- 
pliación de memoria HBM-16 
poco usado, con caja original e 
instrucciones por 4.000 pese- 
tas. José Luis Benito Zurdo. C/ 
Segovia, 1. 05005 Avila. Tel.: 
(918) 22 27 63, de 14 a 15,30 
horas. CP.2 

Vendo impresora-plotter SO- 
NY PRN-C41 con accesorios 
alimentador, manuales y emba- 
laje de origen. Precio a conve- 
nir. Llamar al Tel.: (93) 357 88 
22 CP 2 

Vendo SVI-328, ordenador de 
gestión, apto para el sistema 
CPM2.2 y CPM 3.0 y lenguaje 
Basic, Cobol, Logo. 80Kb, cas- 
sette, 1 joystick, 14 programas 
(juegos y utilidades), manual de 
instrucciones. Todo en perfec- 
to estado por 50.000 pesetas. 
Tel. (93) 372 12 04. CP.2 
Vendo ordenador Spectravi- 
deo SVI-728 MSX 80K. Con 
garantía, más libros y 50 pro- 
gramas comerciales. Todo por 
30.000 pesetas. Intercambio 
programas, poseo más de 200. 
Llamar al tel. (943) 885474 a 
partir de las 18,30. Juan María 
Gorrotxategui. C/ Guipúzcoa, 
16 4.C. 20240 Ordizia (Gui- 
púzcoa). CP.2 

Vendo ordenador SONY MSX 
HB-75P 64K, grabadora de 
cassettes, cassettes de juegos, 
cartucho de ajedrez y libros 
programación BASIC. Com- 
prado todo hace 4 meses. Ven- 
do por 45.000 pesetas. José Fo- 
rero Martín. (93) 353 59 44 de 
Barcelona. CP.2 
Vendo ordenador MSX Spec- 
travideo 728 de 80 ks, con ca- 
bles, manuales y garantía por 
sólo 21.500 pts. Regalo gran 
cantidad de revistas y progra- 
mas originales. Llamar de 9 a 
10 de la noche al Tel.: (972) 50 
96 57. CP.2 

Vendemos todo tipo de pro- 
gramas: hablador, ensambla- 
dor, cambiador de slots (útil 
para pasar la ROM a la RAM), 
juegos. Hacemos programas. 
Poneos en contacto para catá- 
logo e información. Yellow- 
Soft. C/. Rocha, 44. 12414 Al- 
gimia de Almonacid. Castellón. 
CP.2 

Vendo ordenador TOSHIBA 
HX-10, MSX de 80 Kb, com- 
pletamente nuevo. Con cables, 
libros, cinta demo, juegos y un 
cartucho «tenis» Konami. 
Todo por 25.000 pesetas. Jorge 
Beltrán. Tel.: (96) 178 39 64. 
Valencia. CP.2 

Contacto con usuarios de uni- 
dad de disco de 3,5" y MSX-2 
para intercambio de ideas, pro- 
gramas, etc. Rafael. Ctra. Anti- 
de Valencia, 53. 088914 
* >na (Barcelona)..CP 2 
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El basic paso a paso 



— 



,Por Willy Miragall, 



GRAFICOS 
Y GRAFICAS (II) 



La representación gráfica de 
funciones y datos matemáticos 
es de vital importancia en mu- 
chos programas, tanto científi- 
cos como de gestión. Hoy trata- 
mos este interesante aspecto de 
los gráficos MSX. 







— 







Tras el comentario hecho en nues- 
tro anterior número sobre los 
gráficos por ordenador, hacien- 
do especial énfasis, en el dibujo "artís- 
tico", vamos hoy a hablar de las gráfi- 
cas, representación de funciones o da- 
tos matemáticos. 

GRAFICAS 

Existen muchas formas de realizar 
gráficas en un ordenador. La forma uti- 
lizada para representar una función o 
un conjunto de datos varía según el 
tipo de datos a representar. Intentare- 



mos dar un repaso a los tipos de gráfi- 
cas más habituales, así como a la forma 
en que éstas se representan y progra- 
man en nuestros MSX. 

La primera división importante que 
debemos realizar es la de gráficas de 
funciones y gráficas de datos. Las gráfi- 
cas de funciones son muy útiles en ma- 
temáticas, física, economía, estadística, 
etc. 

Las gráficas de datos están mucho 
más a mano del usuario informático. 
Este tipo de gráficas son las utilizadas 
para representar porcentajes, creci- 
mientos, etc, y son ampliamente utili- 



zadas en economía, y en los departa- 
mentos contables de un gran número 
de empresas. Comenzaremos tratando 
este último tipo de gráficas. 

Existen muchos tipos de gráficas de 
gestión; pero trataremos tan sólo unos 
pocos, en concreto, las gráficas de tar- 
ta, las de barras y las lineales. 

GRAFICAS DE TARTA 

Este tipo de gráficas están formadas 
por una circunferencia, cuya superficie 
está dividida en sectores. Cada sector 
corresponde a una materia determina- 



LISTADO 1 



270 GÜTÜ 270 



10 
20 
30 
40 
50 
60 
70 
80 
90 
95 
1 00 
105 
1 10 
120 
130 
140 
150 
160 



TARTA PARA MSX 

P 
;» 

' **# Introducir datos *** 

INPUT A*B,.C S D.,E 
PI=3. 1415926544* 



SCREEN 2 
T=A+B+C+D+E 
A1=A/T 
B1=B/T 
C1=C/T 
D1=D/T 
E1=E/T 
170 A2=A1*2*PI 
130 B2=(A1+B1) *2*PI 
190 C2= (A1+B1+C1 ) *2 
200 D2=(A1+B1+C1+D1 
210 E2=(A1+B1+C1+D1 
220 CIRCLE (128,96) 
230 CIRCLE 
240 CIRCLE 
250 CIRCLE 



260 CIRCLE 
: 



< 128, 96) 
(128,96) 
(128, 96) 
(128,96) 





*PI 

) *2*PI 
+E1) *2*PI 
,50, 15,-A2. 
,50, 15, -B2, 
,50, 15, -C2, 
,50, 15, -D2. 
,50, 15,-E2, 





-~B2 
-C2 
-D2 
-E2 
-A2 



10 

20 
30 



LISTADO 2 



' *********************** 



LINEAS PARA MSX 



50 
60 
70 
80 
90 

100 

1 05 
110 
111 
112 
1 13 
120 
130 
140 
150 
160 
1 80 
190 
200 
210 
220 
230 
240 



' *********************** 
9 *** Introducir datos *** 
INPUT A,B,C,D,E 
SCREEN 2 

IF A>B THEN T=A ELSE T=B 
IF OT THEN T=C 
IF D >T THEN T=D 
I*F E>T THEN T=E 
A1=192-180*A/T 
B1=192-180*B/T 
C1=192-180*C/T 
D1=192-180*D/T 
E1=192-180*E/T 
PSET (10, Al) 
-(60,B1) 
- ( 1 1 , C 1 ) 
-(160, DI) 
-(210, El) 

(9, Al-1>-<11, Al + 1) , ,BF 
(59,B1-1)-(61,B1+1) , ,BF 





LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
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da, expresando de este modo su rela- 
ción con el total. Realizar este tipo de 
gráficas es muy fácil con el BASIC 
MSX, utilizando las instrucciones que 
ya conocemos. 

Supondremo's, para dar un ejemplo, 
la realización de una gráfica circular 
con 5 sectores: A,B,C,D y E. 

Lo primero que debemos hacer es 
sumar todos los valores para obtener el 
valor total. A continuación hemos de 
obtener el tanto por 1 que corresponde 
a cada uno de los sectores. Si las varia- 
bles A,B,C,D y E contienen las cantida- 
des, almacenaremos en Al,Bl,Cl,Dl y 
El el tanto por 1 

T=A+B+C+D+E 

Al=A/T 

B1=B/T 

C1=C/T 

D1=D/T 

E1=E/T 

Sólo nos queda multiplicar estas 
cantidades por 2*PI e ir sumando los 
arcos para tener en cada variable el 
arco que delimita y dibujar los segmen- 
tos en la pr 



A2=A1*2*PI 

B2=(A1+B1)*2*PI 

C2 = (A1+B1+C1)*2*PI 

D2=(A1+B1+C1+D1)*2*PI 

E2 = (A1+B1+C1+D1+E1)*2*PI 

CIRCLE (128,96), 50,15, -A2, 

CIRCLE (128,96), 50,15, -B2, 
-C2 

CIRCLE (128,96), 50,15, -C2, 
-D2 

CIRCLE (128,96), 50,15, -D2, 
-E2 

CIRCLE (128,96), 50,15, -E2, 
-A2 

• 

En el listado 1 encontraréis un pro- 
grama completo que dibuja una tarta 
de 5 sectores. 



GRAFICOS DE BARRAS 

Otro de los tipos de gráficas que re- 
sultan muy útiles a la hora de visualizar 
conjuntos de datos son las gráficas de 
barras. En este caso, cada valor se re- 
presenta como una barra vertical u ho- 
rizontal, cuya longitud depende de la 



magnitud del dato. Gracias a las ins- 
trucciones del BASIC MSX resulta ex- 
tremadamente fácil la realización de 
este tipo de gráficas. Damos como 
ejemplo a continuación la representa- 
ción de una gráfica de cinco barras ho- 
rizontales, con los nombres A,B,C,D y 
E, como en el ejemplar anterior. 

En primer lugar hemos de calcular el 
valor máximo de los datos: 

IF A>B THEN T= A ELSE T=B 
IF OT THEN T=C 
IF D>T THEN T=D 
IFE>T THEN T=E 

A continuación calculamos la posi- 
ción de cada uno en la pantalla y dibu- 
jamos la barra correspondiente en la 
pantalla. 

A1=200*A/T 

B1=200*B/T 

C1=200*C/T 

D1=200*D/T 

E1=200*E/T 

LINE (0,30)-(Al,40), 15, BF 
LINE (0,60)-(Bl,70), 15, BF 
LINE (0,90)-(Cl,100), 15, BF 



250 
260 
265 
270 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

105 

110 

111 

112 

113 

120 

130 

140 

150 

160 

180 

190 

200 

210 



LINE 
LINE 
LINE 
GOTO 



(109,C1-1>- (111,01+1) . , BF 
<159,D1-1)-(161,D1+1) , , BF 
<209,E1-1)-(211,E1+1) , , BF 

270 



220 LINE (0, 150)- (El, 160) , 15, BF 
270 GOTO 270 



LISTADO 3 



*********************** 

BARRAS PARA MSX 



• *********************** 

' *** Introducir datos *** 
INPUT A,B,C,D,E 
SCREEN 2 

IF A>B THEN T=A ELSE T=B 

IF OT THEN T=C 

IF D>T THEN T=D 

IF E>T THEN T=E 

A1=200*A/T 

B1=200*B/T 

C1=200*C/T 

D1=200*D/T 

E1=200*E/T 

LINE (0,30) -(Al, 40) , 15, BF 
LINE (0,60)-(Bl,70) , 15, BF 
LINE (0,90)-(Cl, 100) , 15, BF 
LINE (0, 120)-(D1, 130) , 15, BF 





LISTADO 4 



10 

20 
30 
40 
50 
60 
65 
70 
75 
76 
77 
80 
90 
1 00 
101 
102 
105 
1 10 
120 
130 
132 
135 

150 
140 



' ********************** 

FUNCION TANGENTE 

9 

' ********************** 

9 

SCREEN 2 
PI=ATN(1 ) *4 



' *** EJES *** 

9 

LINE (0,96) -(255, 96) 
LINE (128,0>~<128, 191) 



" *** GRAFICA *** 

9 

L=-l 

FOR X=~2*PI TO 2*PI 
Y1=TAN(X) * 10+96 
X1=X*64/PI+128 
IF L THEN PSET(X1 



STEP PI/30 



Yl) bD*0 



IF ABS(Y1)>192 THEN L=-1:G0T0 



150 NEXT 
160 GOTO 



,L I NE - 
X 

160 



(XI, Yl) 



1 1 



Elbasic paso a paso 



LINE (0,120)-(D1,130), 15, BF 
LINE(0,150)-(E1,160), 15, BF 

Al igual que en el caso de las gráficas 
de tarta os incluimos un 'listado com- 
pleto, (listado 2). 

1 

GRAFICAS 
LINEALES 

Las gráficas lineales consisten en un 
conjunto de puntos unidos por líneas 
rectas. La altura de estos puntos repre- 
senta la magnitud del dato que estamos 
representando. 

Este tipo de gráfica utiliza para su re- 
presentación un método muy similar al 
utilizado para representar gráficas de 
barras. En primer lugar hemos de cal- 
cular la altura de cada punto en coor- 
denadas de pantalla. El método es el 
mismo que hemos seguido para calcu- 
lar la altura de las gráficas de barras, va- 
ría sin embargo, la forma de represen- 
tar estos datos en la pantalla. 

PSET(10,A1) 

LINE-(60,B1) 

LINE-(110,C1) 




LINE-(160,D1) 
LINE-(210,E1) 

Es costumbre habitual marcar los 
puntos con un pequeño recuadro, de 
modo que sea más fácil su localización 
dentro de la gráfica. Para ello haría- 
mos: 

LINE (9, A 1 - 1 ) - ( 1 1 , A 1 + 1 ) „BF 
y de modo similar con el resto de 
puntos. . 

EN GENERAL 

Recordad que es especialmente inte- 
resante la combinación de varias gráfi- 
cas, con diferentes colores, ya que per- 
miten la comparación de resultados de 
una forma fácil y rápida. 

Y aunque aquí no lo hemos tratado, 
es interesante mejorar cuanto sea posi- 
ble la presentación de la gráfica, con re- 
cuadros, textos explicativos, y cuanta 
información sea necesaria. 

Pensad en los listados que incluimos 
como meros ejemplos, que hay que me- 
jorar sustancialmente para poder llegar 
a realizar un buen programa de repre- 
sentación de gráficas de gestión. 

GRAFICAS 
MATEMATICAS 

Realizar una gráfica matemática de 
una función puede ser muy fácil o ex- 
tremadamente complicado. Todo de- 
pende de la función que deseemos re- 
presentar. 

El primer problema con el que nos 
hallamos a la hora de representar una 
función es la localización de los límites 
de ésta. Por ejemplo, la función SIN(x) 
devuelve en todo momento valores en- 
tre 1 y — 1 . Si la representamos directa- 
mente en la pantalla, no veríamos más 
que una línea recta. 

Una vez que conocemos con exacti- 
tud el intervalo en el que se encuentra 
la función hemos de calcular la escala 
adecuada para su representación, de 
forma que ocupe la zona de la pantalla 
que le tengamos destinada. Por ejem- 
plo, una función F(x) que varíe entre 
LIMINF y LIMSUP debería represen- 
tarse calculando las coordenadas de 
cada punto de la siguiente forma. 

Y=F(x) 

Y1 = (Y-LIMINF)*192/(LIMSUP- 
- LIMINF) 

En el caso de la variación de las X, 
ocurre algo similar. Hay que aplicar la 



fórmula de forma similar a como lo he- 
mos hecho en el caso Y, sustituyendo 
LIMSUP y LIMINF por las cantidades 
apropiadas y, claro está, sustituyendo 
YporX. 

Pero la representación de funciones 
no tiene como único problema la esca- 
la. En muchos casos existen puntos en 
que la función vale infinito. ¿Cómo re- 

f)resentamos esto? ¿Cuál el LIMSUP si 
a función es infinitamente grande? En 
este caso hemos de decidir cuál es la 
zona de la función que deseamos re- 
presentar, ya que no podemos repre- 
sentarla en su totalidad. 

Hay que tener especial precaución 
en este caso con las divisiones por cero 
y por los Overflow (rebasar el límite 
numérico del ordenador). 

Todo este proceso, muy complicado 
en algunas gráficas, lo hemos plasmado 
en el listado 4, que incluye un progra- 
ma para realizarla gráfica de la función 
tangente. 

En este último programa hemos sim- 
plificado al máximo las expresiones, 
indicando únicamente sus resultados. 
No encontraréis, por tanto, LIMSUP y 
LIMINF. Se trata simplemente de un 
ejemplo para que podáis observar los 
resultados finales de una representa- 
ción gráfica. Intentadlo vosotros con 
otras funciones. 



EJERCICIOS: 



En el pasado número no os dimos la 
habitual sección de ejercicios. En este 
caso os incluiremos a continuación los 
ejercicios relacionados, tanto con gráfi- 
cos como con gráficas. 

Gráficos: 

1- De nuevo os proponemos un 
único ejercicio consistente en dibujar 
con el ordenador algún cuadro de re- 
nombre universal. Podéis utilizar para 
ello cualquiera de las técnicas que co- 
mentamos en el pasado número. 

Gráficas: 

1.- Respecto a gráficas os propone- 
mos que hagáis las siguientes. 

SIN(x),COS(x),yATN(x) 

2 - Podéis intentar realizar, de igual 
modo, un programa que realice los 3 ti- 
pos de gráficos de gestión que comen- 
tamos en este número, a partir de unos 
mismos datos entrados por el usuario 
al ordenador. 

No es un ejercicio muy difícil; pero 
sí algo largo. ¡Acepta el reto de...! 
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700 'GraficoAde tnrras 

710 ' 
720 D 
730 SCRE 




«•tiltil 



OPEN "nrn 

Datos'; 



740 L 
750 PRF 

"60 PRÉSf 
770 ll> 

780 i^Í92/10^OR^l TO 10: LINE Í95 




BASES 

1. Podrán participar todos nuestros 
lectores, cualquiera sea su edad. 

2. Los programas podrán ser envia- 
dos en cinta de cassette, debida- 
mente protegidos en su estuche de 
plástico, o en disco de 3 1/2 pulga- 
das. En este último caso se remitirá 
al participante un disco virgen en 
el momento de recibir el programa 
enviado. 

3. Todos los programas deberán lle- 
var la carátula adjunta, o bien foto- 
copia de la misma. 

4. Cada lector puede enviar tantos 
programas como desee. 

5. No se aceptarán programas ya pu- 
blicados en otros medios o plagia- 
dos. 

6. Los programas deben seguir las 
normas usuales de programación 
estructurada, utilizando líneas 
REM para marcar todas sus partes, 
subrutinas donde sean necesarias, 
etc. 

7. Todos los programas deben in- 
cluir las correspondientes instruc- 
ciones, lista de las variables utitili- 
zadas, aplicaciones posibles de 
programa y todos aquellos comen- 
tarios y anotaciones que el autor 
considere puedan ser de interés 
para su publicación. 

PREMIOS 

8. Los programas serán premiados 
mensualmente, de modo acorde 
con su calidad, con un premio en 
metálico de 2.000 a 15.000 ptas. 

FALLO Y JURADO 

9. El Departamento de Programa- 
ción de MSX Club de Programas 





hará la selección de aquellos pro- 
gramas de entre los recibidos se- 
gún su calidad y su estructuración. 
10. Los programas seleccionados apa- 
recerán publicados en la revista 
MSX-Club de Programas, en la 
que se publicará, junto con el pro- 
gramaba cantidad con que ha sido 



premiado. 

11. Las decisiones del jurado serán 
inapelables. 

12. Los programas no se devolverán 
salvo que así lo requiera el autor. 

13. El plazo de entrega de Jos progra- 
mas finaliza el 1 de septiembre 
1988. 



_ 




Remitir a: 




club 




Roca i Batlle, 10-12, bajos 08023 Barcelona 



de programas I . MI PROGRAMA 
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PENALTY 



Por José María Jiménez i 



En los momentos finales del 
partido todo se juega en la tanda 
de penalties. Debes encajar el 
máximo número de ellos evitan- 
do que te los marquen a ti. Un 
divertido juego para los aman- 
tes del fútbol. (Para los demás 
también). 



m 

imtmtt 



10 m itmmttmtmmmmt 

20 REH Itt PENALTY (c)B7 m 
30 REH ftl J.Jiienez 
40 REH mtttttfMtt: 
50 REH • 
60 REH PRESENTACION 
70 REH 

80 SCREEN 2,3:60SUB 1210: 0PEN"grp: • AS 1 

:P=RND(-TIHE>¡KEY OFF 

90 COLCRU, 1, IsCLSiPUT SPRITE »,< 191,1 

0),6,4{PUTSPRITE 1, (100,10¡,11,5:ZM5: 

C-BísMM'P E N A L T Y - l ? 8 7"sGG 

SUB 3330:COLOR 3iNI> a by J.Jihdk JU 

ME-B7- : Z-35J C-17itGQSUB 3330 

100 LINE(3,3)-(245,183>,9,B 

110 FOR INI TO ?:60SU8 345^: NEXT: F0RI= 

0TO30:PUTSPRITEI,U,207),0,l!NE)íT:LINE 

<0,0)-<255,255),l,BF 

120 REH 

130 REH OPCIONES 
140 REH 

130 SCREEN 2,2íC0L0R 11, 1 , 2: CLS: 
OPCIONES 0"íl"7ltC«5li6OSOB 3330 
160 ««'I. ONE PLAYER":Z=50:C=100:SOSUB 
3330;N$='2.TWO PLAYERS":C=120:6OSU6 3 
330 

170 S$=INKEY*:IF S$=" THEN 170 ELSE S 
=VAL(SI):IF S=l THEN SCREEN 0:INPUT'NO 
HBRE •;Ml$:Kls'CPU';B0T0 230 
1B0 KEY OFF 

190 COLOR 11, l,2:CLS:«*="t CONTROLES # 
■ : Z : C = 50 : H«255 1 60SUP 3310:*»=— 

1 *jC=62:60SUB 3320 
200 M$='l. CURSOR \ CURSOR':Z=50:C=100: 
60SUB 3310:M* , 2. CURSOR * JOYSTICK":C= 
120:GOSUB 331I:M«'3. JOYSTICK i JOYSTI 
CK':C=140:GOSUB 3310 
210 Vl=INKEY$:IF VI»" THEN 210 ELSE V 
■VAL'VIhlF V>3 OR V<1 THEN 210 
220 SCREEN 0; INPUT'NOHBRE JUGADOR 1";H 
1I:INPUT"N0HBPE JUGADOR 2";N2« 

230 Hll>NIDI(Hlt f l l S)tll2$>HIDI(N2l l l l S 

) 

240 REH 

250 REH PANTALLA 
260 REH 

270 COLOR 15,4,1 ¡SCREEN 2,2 




2B0 COLOR 13,4,1:CLS 

290 DRAWBH0,192C2H15,65H240,65H253,1 ! ? 

2":LINE(15,65)-(240,18B),2,BF:PAINT(2, 

191), 2 

300 DPAW n C15B»115,65M240,65" 

310 DRA«-BM70,65C15U35«P0,30D35" 

320 ÜRAN"BH70,30F7Ü18NH70,65H163,55NH1 

70.65U18E7" 

330 DRAN'BH7i,31H169,31BH74,34H166,34B 
H77,37H163,37' 

340 F0RI=37 TO 55 STEP3:LINE(77, I)-(16 
3,I),15:NEXT 

350 FOR 1=0 TO 100 STEP 10:LINE(I+70,3 
0)-(77*86tI/100,37),15:LINE -STEP(0,18 
),13;NEXT 

360 FOR 1=0 TO 1BSTEP3¡LINE(77,37*1)-I 
70,30+112), 13:LINE<163,37+I)-(t70,30*I 
•2) , 15:NEXT 

370 BRAWBH71,30C15H71,65BH169,30H169, 
63" 

380 DRAN , BH35,65C15H20, 180H235, 1B0H216 

,63 

390 DRAH'BH60,65H55, 100H185, 100H1B0,65 



400 C1RCLEÍ 120, 155) ,2, 15: PAINT í 120, 155 

M5 

410 REH 

420 REH INIC1ALIZACI0N 
430 REH 

440 JA*1:JB=11:PA*14:PB=1 

450 PE=11:W=1:P(1)=0:P(2)=0- 

460 LINE(0,0)-(255,12),1,BF:Z=10:C=2:H 

=255:«I="PENALTY 1987':60SUB 3320 

470 IF Mlís""THENNU="lPLAY* 

480 IF H2«=""THENH2$= ,, 2PLAy" 

490 Wt=Wl$"f--'+W2$:Z*105:C=2:6OSUB 332 



500 LINE(190,0)-(255,25),l,BF:Z»195!C» 
14:H$»-1UP-2UP":60SUB 3320 
510 M$-"0-0-:Z=205:C»2:6OSUB 3330 
520 RESTORE : GOSUB 1220 
530 XP»113:YP*50 
540 XJ-113: YJ«175 
550 X=112sY=140:L»5 
560 XF=113sYF«70:SP=4 
570 REH 
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580 REH 

590 REH BUCLE NUCLEAR 
m REH 
610 REH 

620 FOR 1=0 TO 1000! NEXT 

630 FOR 1=0 TO 30:PL'T SPRITEI, (1,207) , 

0,30:NEXT 

640 BEEP 

650 LINE(170,145)-(220,155),2,BF 
660 PE«PE-1:IF PEO0 THEN 700 
670 IF P(1)«P(2)THEN K$«"EHPATADOS.HAB 
EIS DE REPETIR LOS TIRQS":Z»0?C=100:H» 
255s GOSUB 3320S PLAY "L64Q5CEDFAA ■ j FOR I 
=0TO30:PUTSPRITEI,!I,207),0,30:NEXTiFO 
RI*0TO2000:NEXT:LIN£(0,0>-(255,200),1, 
BF: GOTO 270 

680 Z=50:C=100:K$="6ANADOR PLAYER 'iIF 
Pñ)>P(21 THEN K$«H$*W1* ELSE K$ s Hi+W 

690 N*210: GOSUB 3320:PLAY"L64O4CEDFBB6 
GCCD" s FORA=0TOt000: NEXT: FOR A=0TO30: PU 
, TSPRITEA.(A,20-'),0,30!NEXT;LINE(0,0)-( 
255,200), 1,BF:RUN 

700 IF >t THEN PUT SPRITE 30,(200,30) 
, 15, 10ELSEPUTSPRITE 30, (230,30) , 15, 10 
710 G05UB 1320 

720 PLAY"L3O6H10001S8V15E" 

730 CO=0:FOR 1=0 TO 500:NEXT 

740 FORYJ=YJ TO 145 STEP -2:G0SUB 1320 

:GOSUB 3410:NEXT 

750 FOR 1=0 TO 200: NEXT 

760 REH DISPARO 

770 TIHE=0¡Q=0 

780 XF=XF+9:IF XFMB0 THEN XF=55 
790 GOSUB 1380 

13 



800 IF TIHE\50«>4 ' 
80: GOTO 870 

810 ON V GOSUB 3540,3600,3630: IFQ=-1TH 
EN870 

820 IF SOI THEN 780 

830 IF W=l THEN Q«STRI6(0)ORSTRI6(1):6 

OTO 780 

840 IF XF>65 AND XF<165 AND RND(2X.l 

THEN 870 

850 GOTO 780 - 

860 REH HOVIHIENTO PORTERO-PELOTA 
870 GOSUB 3420:HQ=7:DX=(XF-115)/5:DY=- 
14 

880 X=X+DX:Y«Y*DY 

890 ON V GOSUB 3570,3610,3640: IF CO=l 

THEN GOSUB 3350 

900 IF SOI THEN 940 

910 IF K*2 THEN D*STICK(0)ORSTICK(l) :6 

OTO 940 

920 HQ-(XP-XF)\5:I«SGN(HQ):HQ«ABS(HQ) 
sIF HGK3.5THEN H0-II3.5 ELSE HQ=ItHQ 
930 IF X>XP AND RND(4X.5 THEN D»3:G0T 
O 940 ELSE IF X<XP AND RND(4X.5 THEN 
D"7jXD=HQjC0*1:SP*B:G0TQ 950 



940 IF D=3 THEN XD=H9:C0=1:SP=6:ELSE I 
F 0=7 THEN XD=-HQ:SP=8:C0=1 
950 IF D«70RD=3 THEN 890 
960 GOSUB 1340 

970 IF Y<55 AND X>65 AND X'170 THEN 11 
10 

980 IF Y<20 THEN 1010 

990 IF Y>55 AND Y'60 AND ABSU-XPK8TH 

EN 1050 

1000 60T0 880 

1010 Y=207:SP=4:GOSUB1340:GOTO1070 
1020 REH 

1030 REH FUERA Y PARADA PORTERO 
1040 REH 

1050 SP=4:X=XP:Y=YP-3:IF SP=6 THEN XP= 
XP+16 

1060 GOSUB 1340: GOSUB 3450 

1070 SWAP JA,JB:SHAP H0tW*Ulf W= 

3 THENW=1 

1080 RESTQRE:60T0 530 
1090 REH 

1100 REH G6G000LLL ü! 
1110 REH 

1120 LINE(170,145)-(220,155),1,BF 
1130 W$=-GQOL! ":Z=172:C=147 
1140 Y=207:6OSUB 1320:SP=4: X=!NT(PND(1 
)*30)-15+X:Y=43:IF SP=6 THEN XP=XP*16 
1150 IF X>15B THEN X=158 ELSE IF X<70 
THEN X= 7 

1160 L=20¡GQSUB 1320:6OSUB3480:GOSUB3: 
30:P(H)=P'.W)*1:H$=STRI(P(1))*'- ,, *STR$( 
P(2)):Z=200:C=2:H=255:GOSUB 3320 
1170 SWAP JA,JB:SWAP PA,PB:W=WM j IF W= 
3 THEN 11=1 

1180 RESTORE: GOTO 530 
1190 REH 

1200 REH SPRITES 
1210 REH 

1220 FOR 1=0 TO 10 

1230 A$=" , ;B*='" 

1240 FOR K«l TO 1 6: REAODi 

1250 AI=A$+CHR$(VAL™"*HIDI'D1,1,8¡) 

) 

1260 B$»BKHR$(VALriB'*HID1(Dt,9,i6) 



1270 NEXT K;SPRITE$(I)=A$+B«:NEXT 

1280 RETURN 

1290 REH 

1300 REH POSICION SPRITES 

1310 REH * 

1320 PUT SPRITE 3, (XJ,YJ),JA,3 

1330 PUT SPRITE 2, (XJ,YJ),JB,2 

1340 PUT SPRITE L,(X,Y),l,l 

1350 PUT SPRITE LH, (X,Y),15,0 

1360 P'JT SPRXTE12, (XP f YP) t PA t SP 

1370 PUT SPRITEU,UP,YP),PB,SP*1 

1380 PUT SPRITE 10, (XF,YF),3,10 

1390 RETURN 

1400 REH 





1d1fl DCN HATAC CDC ["[' ron 

Mil KtH DftTftS 5PF.I . t= COD 


,G0 BIN 


Itlv r.tn 




l L 7 Gi nATA üMM>i:iOi&i!taoíii¡atiacia<i 




\&L? nA T A ffi&naaaaiHtruraaaaa 
111Í UHiH VVilcrVvví'iiVlVií 




ItdP UHIH VVEVVtVBVVV'Dv'OVV 




ñor uHifi vtVKvv?vvvvvvv<cv 




ML~m nATA SttOiOiaaOlOiailrxaaaaa 




InCtf UHIH vvvvvívcVsciii'Cv 




1 AJiSíOíaaaciiiaaaaaaa 

i 4 *?!? uhih avvvvvvyvvvvv)!<¿v 




IWB UHIH vovvvsv'ovvvíóvsvt 




isifl nATA emaaaan m aaaaaii 

1311 Un 1 H VVVVVVi 11 ÍPPPPPP 




13¿P Un 1 H VVVVVlllUlvtVVV 




I^Tfl nATA lili 1 M i M 1 l flflfl/í 




1^14 nATA SlfiS i ' ■ fit id 




155C DATA 0000U111U1000Í 




< e í.G nATA tMÉÉM i i i i > i tMM 

4jóP UPIH vvvvvl 1 1 ¡ i (gvfflf 














• 






• a i (7 n¿TA aoKiiOíOiaaaaiHHiiaaa 




lA^fl HAT3 fflflflíiíiflflfliJfliJffldflfflfl 




JooU UH 1 h VVvvVVvV'ív'iVVvvi 




HATA flflAflAflAAffiilff^-lAfll 
10*19 un 1 H IJBpWt'BülJira'.'i'süí'J 




10-1 URltl &BUü6S'P!rrPÜÍ!'PDPlJ 






lO'B Ifflln PrprcÍBrPlSiicrííl 




1AC1I RATÉ flffflfllfflfll 11 llllllüi 
1001? 1/MlH BbBBIíIb 1 1000P15Í3P1Í 




1A0A nATA IIUIA 1 n i aaai¡a 




17flA n¿T¿ ííií'í'l !ÍI5I1 1 flPfflflílffl 




' " ', í flATA IIII1 lili 3 1 MUI 




1720 DATA 0000C1H00U0300 




1730 DATA 0000001010000000 


• 


\i¿a "» T * ¡iíuii9iifli i lili!" 
l/'f0 Urt.fl 00P0»09(? 11000030 




1/91 Jn'H t?wS*t'0BP(;K2f pPwee 




1 ' Ov 

li IV Unln ovvvViVi'i'iVÍ'ív'ú'a 




l/m ühih F0pPpprl?000líÉ!0p0 




i 7qa nATA MnasaaífísaaaotaaiJi 
1/7B UHIH VvvvvvvvCvvvvvüy 




tfiAA nATA í J í ¡Ti 1 ■ J í í * fl iJ ,5 3 S 3 .3 
IBP» UHIH PPPpPPtrPprlJpPlI'P 




101P UHIH CvSPUBi 1 LiyViflI 




iQOfl nATA lili 1 iflini 1 1 im 

IQ¿V ÜHIH 0Bp111p1P1111vp0 




100P UHIH PtUBPlPPPl iVVVVv 




1840 DATA 0000011101100000 




IR^fl nATA UMA1 1 1 1 1 1 1IMI 
1030 UHIH BpBBpi 1 1 1 1 \<OWóv 




iflAA nATA aaaoiaixaaaaaaaaaa 
looV UHIH VVtV9t99VVV9tVV9 




\Qioi nATA aoiaaaaaaaaaaaaaa 




lOOP UHIh PP0PPP0PP0rlÍP0B0 




i poa hata IIMIl lili iMüi 

IOTP UHIH VVVOVi IVVl 1 PPPl'r 




lOAfl nATA MAÉi 1 1 11H 1 UU 
1YBB ünlH ftJBPlllprillpppp 




101A nATA AAAAA1 1AA1 lAdfldfl 
171» UHIH VVVVVllVVllVVVloV 




107A nATA anaaaaaaaaaaaaaa 




IYjB 




i OÁd hata IIMI11 1 1 \aaatxaa 

17nP UHIH UPPPPPllllPPPiJBP 




I91íi nATA IIÜÍ1 1 1 1 1 llüil 
17JS 1 UHIH PPPPP1 1 1 1 1 1PPPPP 




1960 DATA 0000111111110000 




tota nATA ,\a/inrt i i < i i < nn/in i 

197p DATfi 0000011111100000 




1980 DATA 0000000000000000 




PO0 DATA 0000000000000000 
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410 ir niotlP». I. I 1' o 0« n|0«:P«.|.U 




2000 DATA 0011000000001100 

2010 DATA 0110000000000110 

2020 DATA 0110000000000110 

2030 pATA 0010011111100100 

2040 DATA 0000011111100000 

2050 DATA 0000011001100000 

20¿0 DATA 0000000000000000 

2070 DATA 0000000000000000 

2030 DATA 0000000000000000 

2090 DATA 0000111001110000 
2100 ' 

2110 DATA 0000000000000000 

2120 DATA 0^00010110100000 

2130 DATA 0000011111100000 

2140 DATA 0000011001100000 

2130 DATA 0000001111000000 

2160 DATA 0000000000000000 

2170 DATA 0011000000001100 

2180 DATA 0111000000001110 

2190 DATA 0110000000000110 

2200 DATA 0010000000000100 

2210 DATA 0000011111100000 

2220 DATA 0000011111100000 

2230 DATA 0000011001100000 

2240 DATA 0000000000000000 

2250 DATA 0000000000000000 

2260 DATA 0000111001110000 
2270 » 

2280 DATA 000001111U00000 

2290 DATA' 0000100000010000 

2300 DATA 0000100000010000 

2310 DATA 0000000000000000 

2320 DATA 0000000000000000 

2330 DATA 0000111111110000 

2340 DATA 0000011000100000 

2350 DATA 0000011110100000 

2360 DATA 0000011101100000 

2370 DATA 0000011101100000 

2380 DATA 0000000000000000 

2390 DATA 0000000000000000 

2400 DATA 0000000000000000 

2410 DATA 0000011001100000 

2420 DATA 0000011001100000 

2430 DATA 0000000000000000 
2440 ' 

2450 DATA 0000000000000000 

2460 DATA 0000000000000000 

2470 DATA 0000000000000000 

2480 DATA 0000000000000000 

2490 DATA 0000000000000111 

2500 DATA 0000000000011100 

2510 DATA 0000000001110110 

2520 DATA 0000000000001010 

2530 DATA 1001100000001110 

2540 DATA 1001100000000000 

2550 DATA 1001100000000111 







2560 DATA 
2570 DATA 
2580 DATA 
2590 DATA 
2600 DATA 
2610 .' 
2620 DATA 
2630 DATA 
2640 DATA 
2650 DATA 
2660 DATA 
2670 DATA 
2680 DATA 
2690 DATA 
2700 DATA 
2710 DATA 
2720 DATA 
2731 DATA 
2740 DATA 
2750 DATA 
2760 DATA 
2770 DATA 
2780 ' 
2790 DATA 
2800 DATA 
2810 DATA 
2820 DATA 
2830 DATA 
2840 DATA 
2850 DATA 
2860 DATA 
2870 DATA 
2880 DATA 
2890 DATA 
2900 DATA 
2910 DATA 
2920 DATA 
2930 DATA 
2940 DATA 
2950 ■ 
2960 DATA 
2970 DATA 
2980 DATA 
2990 DATA 
3000 DATA 
3010 DATA 
3020 DATA 
3030 DATA 
3040 DATA 
3050 DATA 
3060 DATA 
3070 DATA 
3080 DATA 
3090 DATA 
3100 DATA 
3110 DATA 



0001100000111101 



1001100000000000 
1000000000000000 
0000000000000000 



0000000000000110 



0000000111111011 
0010011110111110 
0110010010101110 
0100011100100000 
0010011111100000 
0110011100000000 
0100000001000000 



Ifill WVVVWVVVlIVV 
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0011100000000000 



0111000000011001 



1110000000011001 

0111110000011000 . 

0000110000011001 
0000000000011001 



0000000000000000 
0000000000000000 
0000000000000000 



1101000000000000 

un 11 1000000000 

1101111111000000 
0111110011000100 
0111010100100110 
0000010111100010 
0000001111100100 
0000000011100110 
0000000000000010 
0000000000000000 

iiiriiivFiiFiiif 



3120 ' 

3130 DATA 0000000000000000 

Tin nATA aaaaaaaaaaaaaaaa 
¿IIV Un I H VW w II IIIIIIIIII f 

3150 DATA 0000000100000000 
3160 DATA 1010101110111111 
3170 DATA 0000011111100000 
3181 DATA 0000111111100000 
3191 DATA 0000001110000000 
3200 DATA 1010101110100001 
3210 DATA 0000001110000000 
3220 DATA 0000101111011111 
3230 DATA 0000001110000000 
3241 DATA 0000000000000010 
3250 DATA 0000000000000000 
3260 DATA 0000000000000000 
3270 DATA 0000000000000000 
3280 DATA 0000000000000000 
3290 ' 

3300 REM IMPRESION DE MENSAJES 
3310 REH 

3320 LINE(Z-5,C-5)-(H+5,C*10),l,BF 
3330 FOR 1=1 TQLEN(H$):PSET(Z*It7,C),l 
sPRINTIl,MID$(W$,I,l);sPSET(Z*I$7+l,C) 
, 1 : PRINTtl , KID$ ÍW$, 1 , 1 ) ; : NEXT: RETURN 
3340 REH MOVIMIENTO PORTERO 
3350 IF XP=>162 THEN CO=0:RETURN 960 
3360 IF XP=<62 THEN CO*0:RETURN 960 
3370 XP*XP*XD: RETURN 960 
3380 REH 

3390 REH SONIDOS 
3400 REM 

3410 FOR E=0TO 2-.S0UND 1,21:SQUND 0,9: 
30UND 13,1:S0UND12,51:S0UND 8,16:NEXT: 
SOUND 8,1: RETURN 

3420 SOUND 0, 9: SOUND 1 , 2: SOUND 6, 30: SO 
UND 7,54: SOUND 8, 14: SOUND 1 1 , 3: SOUND 1 
3,1 

3430 FOR I=0TO 40: NEXT: SOUND 8,0 
3440 RETURN 

3450 SOUND 0,9: SOUND 1,20:SOUND 6,30¡S 
OUND 7,54: SOUND 8, 14: SOUND 11,3: SOUND 
13,1 

3460 FOR I=0TO 
3470 RETURN 

3480 SOUND 0,25:SOUND 1,100¡SOUND 6,10 

¡SOUND 7,54>S0UND 8, 14:S0UND ll,ó:SOUN 

D 12, 252: SOUND 13,8 

3490 FOR 1*0 TO 20: NEXT: SOUND 8,0 

3500 RETURN 

3510 REM 

3520 REM STICK's y STRIG's 
3530 REH 
3540 O»STRIS(0) 
3550 ' 
"3560 RETURN 
3570 D*STICK(Í) 
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3380 RETURN 

3S90 D=STICK (0) : RETURN 

3600 Q=STRIG (W-l ) ¡RETURN 

3610 IF W*l THEN D«STICK ( 1 ) ELSED-STICK 



(0) 

3620 RETURN 
3630 Q=STRI5(H)iRETURN 
3640 IF H«l THEN D«STICK(2)ELSED=STICK 



[i) 



3650 RETURN 
3660 REM ttt FIN DE PROGRAMA Ittt 



Test de listados 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el programa corres- 
pondiente publicado en nuestro número 7 del mes de noviembre, pág. 28. 



10 - f 
20 " 
30 - 
40 - 
50 - 
60 - 
70 - 
80 - 32 
90 - 74 
100 - 71 
110 - 50 
120 - 
130 - 
140 - 
150 -117 
160 -124 
170 - 83 
180 -183 
190 - B7 
200 - 4 
210 -129 
220 -172 
230 -112 
240 - 
250 - 
260 - 
270 -171 
280 - 51 
290 - 9 
300 -177 
310 - 2i 
32* -203 
330 - 32 
340 -121 
350 -221 
360 -130 
370 -191 
380 -214 
390 - 39 
400 -228 
410 - 
420 - 
430 - 
440 -255 
450 - íl 
460 - 46 
470 -138 
480 -141 
490 -105 



500 - 26 
510 -253 
520 - 41 
530 - 42 
540 -135 
550 -110 
560 - 11 
570 - 
580 - 
590 - 
600 - 
610 - 
620 -104 
630 -241 
640 -192 
650 -124 
660 - 12 
670 - 72 
680 -238 
690 - 95 
700 -124 
710 -200 
720 -212 
730 - 62 
740 - 4 
750 - 56 
760 - 
770 - 86 
780 -247 
790 - 4 
800 - 39 
810 -143 
820 -197 
830 -221 
840 -221 
850 -166 
860 - 
870 -234 
880 -149 
890 - 87 
900 -101 
910 -111 
920 - 31 
930 -249 
940 - 23 
950 -121 
960 -220 
970 -223 
980 -212 




990 


-111 


1240 


-239 


1490 


-132 


1740 


-134 


1990 


-132 


2240 


-132 


1000 


- 10 


1250 


-207 


1500 


-132 


1750 


-132 


2000 


-136 


2250 


-132 


1010 


- 32 


1260 


-223 


1510 


-136 


1760 


- 38 


2010 


-136 


2260 


-138 


1020 


- 


1270 


-245 


1520 


-138 


1770 


-132 


2020 


-136 


2270 


- 58 


1030 


- 


1280 


-142 


1530 


-140 


1780 


-132 


2030 


-140 


2280 


-138 


1040 


- 


1290 


- 


1540 


-140 


1790 


-132 


2040 


-138 


2290 


-134 


1050 


-152 


1300 


- 


1550 


-140 


1800 


-132 


2050 


-136 


2300 


-134 


1060 


- 56 1310 


- 


1560 


-138 


1810 


-136 


2060 


-132 


2310 


-132 


1070 


- 63 


1320 


-115 


1570 


-136 


1820 


-140 


2070 


-132 


2320 


-132 


1080 


-113 


1330 


-114 


1580 


-132 


1830 


-135 


2080 


-132 


2330 


-140 


1090 


- -0 


1340 


-156 


1590 


- 58 


1840 


-137 


2090 


-138 


2340 


-135 


1100 


- 


1350 


-170 


1600 


-132 


1850 


-138 


2100 


- 58 


2350 


-137 


1110 


- 


1360 


- 27 


1610 


-132 


1860 


-132 


2110 


-132 


2360 


-137 


1120 


-123 


1370 


- 30 


1620 


-132 


1870 


-132 


2120 


-136 


2370 


-137 


1130 


- 76 


1380 


-254 


1630 


-132 


1880 


-132 


2130 


-138 


2380 


-132 


1140 


- 21 


1390 


-142 


1640 


-132 


1B90 


-136 


2140 


-136 


2390 


-132 


1150 


-197 


1400 


- 


1650 


-132 


1900 


-138 


2150 


-136 


2400 


-132 


1160 


- 52 


1410 


- 


1660 


-132 


1910 


-136 


2160 


-132 


2410 


-136 


1170 


- 63 


1420 


- 


1670 


-132 


1920 


-132 


2170 


-136 


2420 


-136 


1180 


-113 


1430 


-132 


1680 


-134 


1930 


- 58 


2180 


-138 


2430 


-132 


1190 


- 


1440 


-132 


1690 


-135 


1940 


-136 


2190 


-136 


2440 


- 58 


1200 


- 


1450 


-132 


1700 


-136 


1950 


-138 


2200 


-134 


2450 


-132 


1210 


- 


1460 


-132 


1710 


-135 


1960 


-140 


2210 


-138 


2460 


-132 


1220 
1230 


-189 


1470 


-132 


1720 


-137 


1970 


-138 


2220 


-138 


2470 


-132 



2490 -135 
2500 -135 
2510 -137 
2520 -134 
2530 -138 
2540 -135 
2550 -138 
2560 -138 
2570 -137 
2580 -135 
2590 -133 
2600 -132 
2610 - 58 
2620 -132 
2630 -132 
2640 -132 
2650 -132 
2660 -134 
2670 -135 
2680 -139 
2690 -140 
2700 -142 
2710 -140 
2720 -137 



2740 -137 

2750 -133 

2760 -132 

2770 -132 

2780 - 58 

2790 -132 

2800 -132 

2810 -132 

2320 -132 

2830 -133 

2840 -135 

2850 -137 

2860 -134 

2870 -138 

2880 -135 

2890 -138 

2900 -138 

2910 -137 

2920 -135 

2930 -133 

2940 -132 

2950 - 58 

2960 -132 

2970 -132 

2980 -132 

2990 -132 

3000 -134 

3010 -135 

3020 -139 

3030 -140 

3040 -140 

3050 -140 

3060 -138 

3070 -138 

3080 -137 

3090 -133 

3100 -132 

3110 -132 

3120 - 58 

3130 -132 

3140 -132 

3150 -133 

3160 -135 

3170 -137 

3180 -139 

3190 -135 

3200 -135 
3210 -135 



3230 -135 
3240 -132 
3250 -132 
3260 -132 
3270 -132 
3280 -132 
32°0 - 58 
3300 - 
3310 - 
3320 -219 
3330 -140 
3340 - 
3350 -198 
3360 -100 
3370 -101 
3380 - 
3390 - 
3400 - 
3410 -131 
3420 -111 
3430 -236 
3440 -142 
3450 -127 
3460 - 40 
3470 -142 
3480 - 35 
3490 -21Ó 
3500 -142 
3510 - 
3520 - 
3530 - 
3540 - 68 
3550 - 58 
3560 -142 
3570 - 54 
3580 -142 
3590 -254 
3600 - 86 
3610 - 5 
3620 -142 
3630 - 82 
3640 - 7 
3650 -142 
3660 - 



TOTAL: 
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El 



rama 



,Por Diego García Mar tínez 



TABLA 
PERIODICA 



Un interesante programa 
educativo que os permitirá dis- 
poner en todo momento de los 
datos que deseéis sobre la tabla 
periódica de los elementos. In- 
cluye una opción de test en la 
que el programa realiza nume- 
rosas preguntas sobre los ele- 



lf ' nmumtmmmsmmmii 

20 1 

30 « TABLA PERIODICA DE LOS ELEMENTOS 
40 ' PARA USX CLUB 

50 * 

60 ' itmitmmtmmttmtmm 

n » 

80 ' 



INICIACION 



m ' 
ti» ' 

12# ' — — — ■ 

130 SCREEN0: WIDTH37: KEY 0FF:C0L0R 1,10 
140 DEFINTA-Z: DIfl A*(4,9B),A(98) 
150 ON KEY 60SUB 3550:KEY(1) ON 
160 ON STOP 60SUB 3550: STOP ON 
170 » 

180 ' til PRESENTACION ttl 
190 ' 

200 LOCATE 0,5:PRINT STRIN6$ (37, 223) ; ■ 
TABLA PERIODICA DE LOS ELEMENTOS ■ 
;STRING$<37,220) 

210 LOCATE 6,14:PRINT'Prograia realiza 
do en l987';SPC(23);"por';SPC(25);'Die 
go Sarcia Hartinez" 
220 ' 1 
230 ' 

240 ' ■ DATOS PROGRAMA ■ 
250 ' 

260 » — — 

270 B$= , T250O5V12DCv8C 

280 Cf« , T250O4S10H19ecg' 

290 D$= , T180O4S10H3000EABV13DD" 

300 FOR A»l TO 98:F0fl B=0 TO 4:READ Al 

(B,A):NEXT B, A 

310 DATA 1 . 08,H, HIDR06EN0, IA, 1 
320 DATA 4.00,He,HELIO,VIIIA,0 
330 DATA 6.94,Li,LITI0,IA,l 
340 DATA 9. 01, Be, BERILIO, HA, 2 
350 DATA 10.81, B , BORO, I I IA, 3 
360 DATA 12.01, C, CARBONO, IVA, -4 2 4 
370 DATA 14.00,N,NITRO6ENO,VA,-3 2 3 4 
5 

380 DATA 15.99,0,0XI6EN0,VIA,-2 
390 DATA 18.99,F, FLUOR, VIIA.-l 
400 DATA 20.l8,Ne,NEON,VIIIA,0 
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410 DATA 22.99,Na,S0DI0,IA,l 
420 DATA 24.31, Mg, MAGNESIO, HA, 2 
430 DATA 26.98, Al, ALUMINIO, IIIA, 3 
440 DATA 28.08,Si, SILICIO, IVA, 4 
450 DATA 30.97,P,FOSFORO,VA,-3 3 4 5 
460 DATA 32.06,S,AZUFRE,VIA,-2 2 4 6 
470 DATA 35.45,C1,CL0R0,VIIA,-1 1 3 5 
7 

480 DATA 39.95,Ar,AR6ON,VIIIÁ,0 
490 DATA 39. 10,K, POTASIO, IA, 1 
500 DATA 40.08,Ca,CALCIO,IIA,2 
510 DATA 44". 95, Se, ESCANDIO, 1 1 IB, 3 
520 DATA 4M0,Ti,TITANIO,IVB,3 4 
530 DATA 50.94, V, VANADIO, VB, 2 3 4 5 
540 DATA 51. 99,Cr, CROMO, VIB,2 3 6 
550 DATA 54.93,Hn,HAN6ANES0,VIIB,2 3 4 
6 7 

560 DATA 55. 84, Fe, HIERRO, VI II, 2 3 
570 DATA 58 . 93 , Co , COBALTO , V I I I , 2 3 
580 DATA 58.71,Ni,NIQUEL,VIII,2 3 
590 DATA 63. 54, Cu, COBRE, IB, 1 2 
600 DATA 65.37,Zn,CINC,IIB,2 
610 DATA 09. 72,6a, 6ALI0, IIIA, 3 
620 DATA 72.59 l 6i,6ERHANI0,IVA,4 
630 DATA 74. 92, As, ARSENICO, VA, -3 3 5 
640 DATA 78.96,Se,SELENI0,VIA,-2 4 6 
650 DATA 79.91, Br, BROMO, VIIA,-1 1 3 
660 DATA 83.80,Kr,CRIPTON l VIIIA,0 
670 DATA 85.47,Rb,RUBlD10,IA,l 
680 DATA 87. 62, Sr , ESTRONCIO, I IA, 2 
690 DATA 88.91, Y, ITRIO, 1 1 IB, 3 
700 DATA 91. 22, Zr, CIRCONIO, IVB, 4 



710 DATA 92.91, Nb, NIOBIO, VB, 3 3 

720 DATA 95.94,Ho,H0LIBDEN0,VIB,2 3 4 

5 6 

730 DATA 98. 00, Te , TECNECIO, VI IB, 7 

740 DATA 101.07,Ru,RUTENIO,VIII,2 3 4 

6 8 

750 DATA 102.91, Rh , RODIO, VI I I , 2 3 4 

760 DATA 106.40,Pd,PALADIO,VIII,2 4 

770 DATA 107. 87, Ag, PLATA, IB,1 

780 DATA 112.40,Cd,CADMIO,IIB,2 

790 DATA 114.82, In, INDIO, IIIA,3 

800 DATA 118.69,Sn,ESTAÑ0,IVA,2 4 

810 DATA l21.75,Sb,ANTIH0N10,VA,-3 3 5 

820 DATA 127'.60,Te,TELURIO,VIA,-2 4 6 

830 DATA 126.90,I,YODO,VIIA,-1 1 5 7 

840 DATA 131.30,Xe,XENON,VIIIA,0 

850 DATA 132.91, Cs, CESIO, IA, 1 

860 DATA 137. 34, Ba, BARIO, I IA, 2 

870 DATA 13B.91,La,LANTAN0,IIIB,3 

880 DATA 140. 12, Ce, CERIO, 1 1 IB, 3 4 

890 DATA 140.91,Pr,PRASEODlHIO,IIIB,3 
4 

900 DATA 144.24,Nd,NE0DIMI0,IIIB,3 

910 DATA 147. 00, Pi, PROMETIO, 1 1 IB, 3 

920 DATA 150.35,Si,SAMARIO,IIIB,2 3 

930 DATA 151 . 96 , Eu, EUROPIO, 1 1 IB, 2 3 

940 DATA 157. 25, 6d, GADOLINIO, 1 1 IB, 3 

950 DATA 158.92,Tb,TERBI0,IIIB,3 4 

960 DATA 162.50,Dy,DISPROSIO,IIIB,S 

970 DATA 164.93,Ho,H0LHI0,IIIB,3 
980 DATA 167.26,Er,ERB10,lIIB,3 
990 DATA 168. 93, Ta, TULIO, 1 1 IB, 2 3 
1000 DATA 173.04, Yb , YTERBIO, I I IB, 2 3 
1010 DATA 174.91, Lu, LUTECIO, 1 1 IB, 3 

1020 DATA 17B.49,Hf,HAFNI0,IVB,4 
1030 DATA 180. 95, Ta, TANTALO, VB, 5 
1040 DATA 1B3.85,N,V0LFRAHI0,VIB,2 3 4 
5 6 

1050 DATA 186.20,Re,RENIO,VIIB,-i 2 4 
6 7 

1060 DATA 190.20,05, 0SMI0,VIII, 2 3 4 6 
8 

1070 DATA 192.20,Ir,IRIDIO,VIII,2 3 4 
6 

1180 DATA 195.09,Pt,PLATINO,VIII,2 4 
1090 DATA 196. 97, Au, ORO, IB, 1 3 



— 

1100 DATA 200. 59, Hg, MERCURIO, I IB, 1 2 
1110 DATA 204.37,T1,TALIO,IIIA,1 3 
1120 DATA 207-.19,Pb,PLOHO,IVA,2 4 
1130 DATA 208. 98, Bi, BISMUTO, VA, 3 S 
1140 DATA 210.00,Po,POLONIO,VIA,2 4 
1150 DATA 210.00,At,ASTATO,VIlA,-l 1 3 
5 7 

1160 DATA 222. 00, Rn, RADON, VI I IA,0 
1170 DATA 223.00,Fr,FRANCIO,I.A,l 
1180 DATA 226. 00, Ra, RADIO, 1 1 A, 2 
1190 DATA 227. 00, Ac, ACTINIO, II IB, 3 
1200 DATA 232.03,Th,TORIO,lIIB,4 

1210 DATA 231.00,Pa,PROTACTINIO,IIIB,4 
5 

1220 DATA 238.03,U,URANIO,IIIB,3 4 5 6 
1230 DATA 237. 00, Np «NEPTUNIO, 1 1 IB, 3 4 
5 6 

1240 DATA 242. 06, Pu, PLUTONIO, 1 1 IB, 3 4 
5 6 

1250 DATA 243.00,Ai,AHERICIO,IIIB,3 4 
5 6 

1260 DATA 247.00,Ci,CURIO,IIIB,3 
1270 DATA 247.00,Bk,BERKELIO,IIIB,3 4 
1280 DATA 249 . M, Cf , CALIFORNIO, I I IB, 3 
1290 ' 
1300 ' 

1310 ' ■ MENU PRINCIPAL ■ 
1320 ' 

1330 » 

1340 CLS: PRINT-ELI&E UNA OPCION PULSAN 
DO UN NUMERO" 

1350 LOCATE 11,5:PRINT "MENU PRINCIPAL 
' ; SPC ( 12) ; STRINGI (37, 223) ; SPC (7) ; ■ ( 1 ) 
I NSTRUCC IONES ■ ; SPC ( 2# ) ; " ( 2 ) CONSULTA D 
ATOS'; SPC < 19) ; " (3) PREGUNTAS 1 ; SPC (24) ; 
"(4) FIN DEL PR06RAHA" ; SPC ( 10) ; STRIN6Í 
(37,220) 

1360 PLAY"14i6000sl0t250agt82c' 

1370 ON VAL(INKEYt)60TQ 1390,1550,1820 
,349^ 

1380 60T0 1370 

1390 ' — ■ — — 

1400 ' 

1410 ' ■ INSTRUCCIONES ■ 
1420 ' 

1430 ' — — ■ 
1440 CLS:PRINT'EL PROGRAMA TRATA SOBRE 

ALGUNAS CARACTERISTICAS DE LOS ATONOS 
jPERHITE QUE SE CONSULTEN LOS DATOS Y 
QUE EL ORDE-NADOR TE PREGUNTE LAS CARA 
CTERISTICASDE LOS ATONOS (Y COMUNICA SI 

HAS ACER-TADO).' 

1450 PR I NT "LAS CARACTERISTICAS QUE HAN 
EJA EL PROGRAMA SON EL NUMERO ATOMICO, 
PESO ATO-MICO, FAMILIA, VALENCIA, NOMBRE 
Y SIHBO-LO.' 

1460 PR I NT ■ EL SIMBOLO ATOMICO SE ESCRI 
BE CON LA PRIMERA LETRA MAYUSCULA Y LA 
SEGUNDA MINUSCULA. EL NOMBRE SOLO ES R 



ECONOCI-DO CON MAYUSCULAS. LA FAMILIA E 

S RECO-NOCIDA POR LA NOMENCLATURA DE N 

UHEROSRONANOS,COHO POR EJEMPLO VIII, I A 
■ 

1470 PR I NT ■ LA VALENCIA SE RESPONDE DEJ 

ANDO ESPA-CIO EN BLANCO ENTRE CADA VAL 

ENCIA, NO SE DEBEN SEPARAR MEDIANTE COM 

AS. EL PESO ATOMICO ES ACEPTADO CON EL 

ERROR DE UNA UNIDAD. 1 

1480 LOCATE 11,22:PRINT'PULSA UNA TECL 

A" 

1490 A$=INKEYt:IF Al»" THEN 1490 
1500 CLSsPRINT'EL MANEJO DEL PROGRAMA 
SE HACE POR HENUS. ELIGIENDO LAS OPCION 
ES PULSANDO EL NUMERO ENTRE PARENTESI 
S.LAS CONTESTACIONES SE HACE TECLEANDO 
LAS Y APRE-TANDO RETURN.EL REGRESO AL 
MENU PRIN-CIPAL SE HACE APRETANDO LA T 
ECLA cFl>0 cCTRL>+<STOP>." 
1510 PRINT'EL PROGRAMA TE PUEDE PREGUN 
TAR LOS E-LEMENTOS DE NUMERO ATOMICO C 
OHPRENDI-DO ENTRE EL 1 Y 98. SI NO TE I 
NTERESA QUE TE PREGUNTE TODOS LOS ELEN 
ENTOS ELIGELOS CON LA OPCION ADECUADA 
,POR HEDIO DEL NOMBRE O SIMBOLO.'; 
1520 PRINT'PUEDES GRABAR EN EL MAGNETO 
FONO ESTA ULTIMA IN-FORMACION, Y RECUPE 
R ARLA, DE MODO QUE NO NECESITAS TECLEA 
R TODOS LOS ELEMENTOS QUE TE INTERESAN 
CADA VEZ QUE INICIAS EL PROGRAMA.' 
1530 LOCATE U,22:PRINT'PULSA UNA TECL 
A' 

1540 A$=INKEYt:IF A*=" THEN 1530 ELSE 
1440 

1550 » — — 
1560 ' 

1570 ' ■ CONSULTA DATOS ■ 
1580 ' 

1590 ' ——-i—" 

1600 CLS: PRINT'cEN BASE A QUE DESEAS P 
EDIR INFORMA- CION?' 
1610 LOCATE 0,5:PRINT STRINGt (37, 223) ; 
SPC(8);'(1) FAHILIA';SPC(26);'(2) NOHB 
RE O SIHBOLO';SPC(9);STRING$(37,220) 

1620 A=VAL(INKEYI) 
1630 IF A<1 OR A>2 THEN 1620 
1640 CLS:ON A GOTO 1650,1740 
1650 ' 

1660 ' tt FAMILIA tt 
1670 ' 

1680 INPUT'¿FAHILIA';AI 

1690 Et*CI:PRINT' NOMBRE SIN N.Á P. 

ATQH VALENCIA ' 

1700 FOR C=l TO 98 

1710 IF A$=A$(3,C) THEN E$=B$:PRINTA$( 
2,C);iL0CATE 12: PRINTAK 1,0;; LOCATE 1 
5: PRINTC; s LOCATE 19: PRINTAI (0, ; s LOCA 
TE 26:PRINTAI(4,C) 







1720 NEXT C 

1730 PLAY Et:PRINT:60T0 1650 
1740 r 

1750 ' It NOMBRES O SIMBOLOS ti 
1760 ' 

1770 E*=C*:INPUT'¿NOHBRE O SIMBOLO"; A$ 
1780 FOR C*l TO 98 

1790 IF A$=AI(1,C) OR AI=AI(2,C) THEN 
EI=BI:PRINT'N0HBRE:';AI(2,C):PRINT'SIH 
BOLO: ' ; Al ( 1 , : PRI NT "NUMERO ATOMICO: ' ; 
C:PRINT'PESO ATOMICO: ';AI(0,C):PRINT , V 
ALENCIA:';AI(4,C) 
1800 NEXT C 

1810 PLAY EI:PRINT:60T0 1740 
1820 ' — — — 
1830 ' 

1840 » ■ PREGUNTAS ■ 
1850 ' 

1860 ' — — — 
1870 ' 

1880 ' III QUE SE PREGUNTA til 
1890 » 

1900 CLS:PRINT'¿QUE ELEMENTOS SE TE PR 
E6UNTAN?" 

1910 LOCATE 0,5:PRINT STRINGS (37,223) ; 
SPC(7);'(1) TODOS LOS ELEMENTOS'; SPC (1 
4);"(2) LOS QUE YO ELIJA" ; SPC < 10i ; STRI 
NG$(37,220) 

1920 ON VAL ( INKEYi) GOTO 1940,1960 
1930 6QT0 1920 

1940 FOR AM TO 98: A (A) =A: NEXT 
1950 B=9B:60T0 2380 
1960 CLS:PRINT"¿COHO QUIERES INDICAR L 
OS ELEMENTOS?" 

1970 LOCATE 0,5:PRINT STRIN6$(37,223); 
SPC(7);'(1) DESDE EL TECLADO" ; SPC ( 17) ; 
'(2) DESDE EL MA6NET0F0N0";SPC(6) ;STRI 
NG$(37,220) 

1980 ON VAL(INKEYI) GOTO 2000,2170 
1990 GOTO 1980 
2000 ' 

2010 ' II INTRODUCCION TECLADO.lt 
2020 ' 

2030 CLS:INPUT'¿NUHERO DE ELEMENTOS (1- 
98) "'B 

2040* IF B<1 OR B>98 THEN 2030 
2050 FOR A=l TO B 

2060 C*0: INPUT'cELEHENTO (NOMBRE O SIMB 
OLO)';A$ 

2070 IF C<98 THEN C=C*l ELSE PLAY CI:P 
RINT'ELEHENTO NO ENCONTRADO": GOTO 2060 
2080 IF AIOAI(l,C) AND AIOAI(2,C) TH 
EN 2070 

2090 PLAY B$:A(A)=C:NEXT 
2100 ' 

2110 ' II ¿GUARDAR DATOS? tt 
2120 ' 

2130 CLS:PRINT'¿QUIERES GUARDAR LOS EL 
EHENTOS EN EL MAGNETOFONO?" 
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2140 LOCATE f,5:PRINT STRINGS (37, 223) ¡ 
SPC(7)f'(l) SI QUIERQ";SPC(24);"(2) 
QU I ERO ■ ; SPC ( 1 7 ) ; STR I N6$ < 37 , 220 ) 
2150 ON VAL(INKEYt) 60TO 2270,2380 
2160 GOTO 2150 
2170 ' 

2180 ' tt CARGA ELEMENTOS tt 
2190 ' 

2200 CLS:PRINT"PON EL MAGNETOFONO EN N 
0D0 DE CARGA." 

2210 OPEN"CAS:TP' FOR INPUT AS «1 
2220 INPUT 11, B 
2230 FOR A=l TO B 
2240 INPUT tl,A(A) 
2250 NEXT 
2260 60T0 2370 
2270 ' 

2280 ' tt GRABACION ELEMENTOS tt 
2290 ' 

2300 CLS:PRINT"PON EL HA6NET0F0N0 EN H 
ODO DE GRABA- CION Y PULSA UNA TECLA.' 
2310 A$=INKEY$:IF Ai=" THEN 2310 
2320 OPEN'CAS:TP' FOR OUTPUT AS ti 
2330 PRINT II, B 
2340 FOR A=l TO B 
2350 PRINT ll,A(A) 
2360 NEXT 

2370 CLOSE:GOTO 2100 
23B0 ' 

2390 ' ttt COMO SE NOMBRAN ttt 
2400 ' 

2410 CLS¡PRINT"¿CQHO QUIERES QUE SE TE 
PREGUNTEN LOSELEMENTOS?' 
2420 LOCATE 0,5tPRINT STRING$(37,223); 
SPC(7); , (1) POR SU SIMBOLO' ;SPC( 19) 
2) POR SU NOHBRE';SPC(20);"(3) POR SU 
NUMERO ATOMICO' ; SPC (5) ; STRINGJ (37, 220) 
2430 D=VAL(INKEY$) 
2440 IF D=0 THEN 2430 
2450 ' • 

2460 ' ttt QUE SE CONTESTA ttt 
2470 ' 

2480 PS*0: PE=0: PN=0: PP=0: PF=0: PV=0 

2490 CLS:PRINT'¿QUE QUIERES CONTESTAR? 
■ 

2500 LOCATE 0,5:PRINT STRINBi (37, 223) ; 
SPC(7);'(1) EL SIHB0L0';SPC(23);'(2) E 
L N0HBRE';SPC(24);'(3) EL NUMERO ATOHI 
C0';SPC(16);'(4)EL PESO ATONICO" ; SPC ( 
18);'(5) LA VALENCIA';SPC(22);"(6) LA 
FAHILIA';SPC(23);"(7) COMIENZO" ; SPC í 18 
);STRING$(37,220) 

2510 ON VAL(INKEYt) GOTO 2530,2550,257 

0,2590,2610,2630,2650 

2520 60T0 2510 

2530 IF PS=0 THEN LOCATE 5,6:PRINT't": 
PS=l:GOTO 2510 




2540 LOCATE 5,6;PRINT" ':PS=0:6OTO 251 



2550 IF PE=0 THEN LOCATE 5, 7: PRINT"»" : 
PE=l:GOTO 2510 

2560 LOCATE 5,7:PRINT" ":PE=0:6OTO 251 


2570 IF PN=0 THEN LOCATE 5, 8: PRINT"*- : 
PN*t:6QT0 2510 

2580 LOCATE 5, 8: PRINT" ":PN=0:6OTO 251 


2590 IF PP=0 THEN LOCATE 5,9:PRINT"t": 
PP=l:GOTO 2510 

2600 LOCATE 5, 9: PRINT" ":PP=0:GOTO 251 


2610 IF PV=0 THEN LOCATE 5, 10:PRINT"t" 
:PV=l:SOTO 2510 

2620 LOCATE 5,10:PRINT" ":PV=0:GOTO 25 
10 

2630 IF PF=0 THEN LOCATE 5, ll:PRINT"t" 
:PF=1:60T0 2510 

2640 LOCATE 5,11:PRINT" ":PF=0:GOTO 25 
10 

2650 ' 

2660. ' ttt MEZCLADO DE ELEMENTOS ttt 
2670 ' 

2680 FOR A=l TO B 

2690 C=INT(RND(-TIHE)tB)*l 

2700 SHAP A(A),A(C) 

2710 NEXT 

2720 » 

2730 ' ttt BUCLE PRINCIPAL ttt 
2740 ' ttt DE ttt 
2750 ' ttt PREGUNTAS ttt 
2760 ' 

2770. IF A>=B THEN A*l ELSE A=A+l 
2780 CLS:PRINT"ELEMENTO...'; 
2790 IF ü<3 THEN PRINT A$(D,A(A)) ELSE 
PRINT A(A) 

2800 IF PE=1 THEN INPUT'¿NOHBRE';A$:C= 
2: 60 SU B 3380 

2810 IF PS-1 THEN INPUT'cSINBOLO"; A$:C 
=1:G0SUB 3380 
2820 IF PN=1 THEN 



0';CZ:GOSUB 2870 

2830 IF PF«1 THEN INPUT'¿FAHILIA';Af:C 
=3:G0SUB 3380 

2840 IF PV=1 THEN INPUT'¿VALENCIA';A$: 
GOSUB 3070 

2850 IF PP=1 THEN INPUT"¿PESO ATOMICO" 
;C!:60SUB 2970 

2860 A$=INKEY$:IF A$=" THEN 2860 ELSE 
2760 
2870 ' 



tt PREGUNTA NUMERO ATOMICO tt 
2890 ' 

2900 IF COA (A) THEN 2930 

2910 PLAY B$:PRINT"HAS ACERTADO" 

2920 RETURN 



REPE 



2930 PLAY C$:A$=":INPUT'¿ 
TIR(S/)";A$ 
2940 IF A$="S" OR A$="s" THEN INPUT'cR 
EPITE";C:GOTO 2900 

2950 PLAY DI;PRINT"LA RESPUESTA CORREC 
TA ES 'jA(A) 
2960 RETURN 
2970 ' 

2980 ' tt PREGUNTA PESO ATOMICO tt 
2990 ' 

3000 IF ABS(C'-VAL(A$(0,A(A))))>1 THEN 
3030 

3010 PLAY B*:f 
3020 RETURN 
3030 PLAY Ci : A$= " " : I NPUT " ¿QU I ERES REPE 
TIR(S/)';A$ 

3040 IF A$="S" OR A*=V THEN INPUT'¿R 

EPITE";C!:60T0 3000 

3050 PLAY D$:PRINT"LA RESPUESTA CORREC 

TA ES ";A$(0,A(A)) 

3060 RETURN 

3070 ' 

3080 ' tt PREGUNTA VALENCIA tt 
3090 ' 

3100 E=0:F$=" 

3110 FOR C=l TO LEN(A$(4,A(A))) 
3120 E$=HID$(A$(4,A(A)),C,1) 
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3131 IF Ef=' " AND HID$(A$(4,A(A»,01 
,1)<>' ' THEN E=E+1:B(E)=VAL(FI):F$='" 
ELSE F$=Ff+EI 
3140 NEXT 

3150 E=E+1:B(E)=VAL(F*'):B(0)=E 
3160 E=0:F$=" 
3170 FOR C=l TO LEN(A$) 
3180 E$=MID$(A$,C, 1) 
3190 IF E$=" • AND HID$(A* f C*l,i)<>' " 
THEN E=E+1:C(E)*VAL(F$):F$=" ELSE F 
l=F$*E* 
3200 NEXT 

3210 E=E+i:C(E)*VAL(F$):C(0)=E' 

3220 F=0:G=0 

3230 FOR C-l TO C(0) 

3240 FOR 1*1 TO C(ll 

3250 IF C(C)*C(E) AND COE THEN F=l 

3260 NEXT E f C 

3270 IF F»l THEN PRINT'HAS REPETIDO AL 
6UNA VALENCIA" : GOTO 3410 
3280 IF B(0)=C(0) THEN PRINT'HAS PUEST 
O TODAS LAS VALENCIAS" ELSE IF B(0)>C( 



0) THEN PRINT'HAS PUESTO DE HENOS' ;B(0 
)-C(0); 'VALENCIAS' ELSE PRINT'HAS PUES 
TO DE NAS';C(0)-B(0); 'VALENCIAS' 
3290 FOR C=l TO B(0) 
3300 FOR E»| TO C(0) 
3310 IF B(C)=C(E) THEN 6=( 
3320 NEXT E,C 
3330 IF B(0)=C(0> AND G=B(0) THEN PLAY 
Bis PRINT'HAS ACERTADO TODAS LAS VALEN 
CIAS':RETURN 

3340 PLAY C$:PRINT'HAS ACERTADO';G;'VA 
LENCI AS' : INPUT'¿QUIERES REPETIR (S/ ) ' ; A 
$ 

3350 IF A$='S" OR A$=-s" THEN INPUT'¿R 

EPITE-;A$:60T0 3100 

3360 PLAY DfsPRINT'LA RESPUESTA CORREC 

TA ES ';AI(4,A(A)) 

3370 RETURN 

3380 ' 

3390 ' ti PREGUNTA NOMBRE, SIMBOLO ti 
3400 ' tt Y FAMILIA I! 
3410' 



3420 IF A$OA$(C,A(A)) THEN 3450 
3430 PLAY B$: PRINT'HAS ACERTADO" 
3440 RETURN 

3450 PLAY C$:A$=":INPUT'¿QUIERES REPE 
TIR(S/)';A$ 

3460 IF A$='S' OR AS=V I 
EPITE';A$:GOTO 3420 
3470 PLAY D$:PRINT'LA RESPUESTA CORREC 
TA ES ';A$(C,A(A)> 

3480 RETURN 

3490 ' ——————— 

3500 ' 

3510 ' ■ FIN DEL PROGRAMA ■ 

3520 ' * 

3530 ' ——————— 

3540 COLOR 15,4,4:SCREEN 0:KEY ON:END 
3550 ' ——————— 

3560 ' 

3570 ' ■ RETORNO AL MENU O 

3580 ' 

3590 ' — — — ■ 



— 



3600 RETURN 1290 



Test de listado 



10 


- 58 


340 


•174 


670 


-183 


1000 


-188 


1330 


- 58 


1660 


- 58 


1990 


- 90 


2320 


- 67 


2650 


- 58 


2980 


- 58 


3310 


-131 


20 


• 58 


350 


-239 


680 


-185 


1010 


-142 


1340 


-159 


1670 


- 5B 


2000 


- 58 


2330 


■ n 

- 52 


2660 


- 58 


2990 


- 58 


3320 


- 55 


30 


■ 58 


360 


- 20 


690 


-108 


1020 


-231 


1350 


-118 


1680 


- 4 


2010 


- 58 


2340 


-223 


2670 


- 58 


3000 


- 42 


3330 


-123 


40 


■ 58 


370 


-239 


700 


-103 


1030 


-254 


1360 


-192 


1690 


-137 


2020 


- 58 


2350 


-197 


2680 


-223 


3010 


- 85 


3340 


- 68 


50 


- 58 


380 


-225 


710 


-167 


1040 


- 86 


1370 


- 3 


1700 


- 16 


2030 


-242 


2360 


-131 


2690 


-212 


3020 


-142 


3350 


- 37 


60 


- 58 


390 


-146 


720 


-119 


1050 


-242 


1380 


-246 


1710 


-129 


2040 


- 68 


2370 


-193 


2700 


-120 


3030 


- 81 


3360 


-113 


70 


- 58 


400 


-178 


730 


-149 


1060 


-223 


1390 


- 58 


1720 


-198 


2050 


-223 


2380 


- 58 


2710 


-131 


3040 


-191 


3370 


-142 


80 


- 58 


410 


- 32 


740 


-128 


1070 


-219 


1400 


- 58 


1730 


- 62 


2060 


- 95 


2390 


- 58 


2720 


- 58 


3050 


-109 


3380 


- 58 


90 


- 58 


420 


- 56 


750 


- 96 


1080 


-220 


1410 


- 5B 


1740 


- 58 


2070 


- 91 


2400 


- 58 


2730 


- 58 


3060 


-142 


3390 


- 58 


100 


- 58 


430 


-149 


760 


-162 


1090 


- 7 


1420 


- 58 


1750 


- 58 


2080 


-124 


2410 


- 79 


2740 


- 58 


3070 


- 58 


3400 


- 58 


110 


- 58 


440 


- 16 


770 


- 63 


1100 


-174 


1430 


- 58 


1760 


- 58 


2090 


- 35 


2420 


- 60 


2750 


- 58 


3080 


- 58 


3410 


- 58 


,120 


- 58 


450 


- 54 


780 


-180 


1110 


- 27 


1440 


- 83 


1770 


- 49 


2100 


- 58 


2430 


- 3 


2760 


- 58 


3090 


- 58 


3420 


- 53 


130 


- 35 


460 


- 40 


790 


-219 


1120 


-228 


1450 


-208 


1780 


- 16 


2110 


- 58 


2440 


- 62 


2770 


- 86 


3100 


- 28 


3430 


- 85 


140 


-144 


470 


-184 


800 


-147 


1130 


- 58 


1460 


- 65 


1790 


- 39 


2120 


- 58 


2450 


- 58 


2780 


-204 


3110 


- 75 


3440 


-142 


150 


-229 


480 


- 8 


810 


- 36 


1140 


-122 


1470 


-124 


1800 


-198 


2130 


-180 


2460 


- 58 


2790 


-118 


3120 


-162 


3450 


-• 81 


160 


- 10 


490 


- 84 


820 


-232 


1150 


- 45 


1480 


- 36 


1810 


-152 


2140 


- 64 


2470 


- 58 


2800 


-100 


3130 


- 


3460 


-102 


170 


- 58 


500 


-130 


830 


12 


1160 


- 46 


1490 


- 92 


1820 


- 58 


2150 


-113 


2480 


-212 


2810 


-195 


3140 


-131 


3470 


-159 


180 


- 58 


510 


-132 


840 


- 65 


1170 


-206 


1500 


- 47 


1830 


- 58 


2160 


- 5 


2490 


- 81 


2820 


- 16 


3150 


-221 


3480 


-142 


190 


- 58 


520 


- 83 


850 


- 70 


1180 


-131 


1510 


- 45 


1840 


- 58 


2170 


- 58 


2500 


-108 


2830 


-150 


3160 


- 28 


3490 


- 58 


200 


-200 


530 


-242 


860 


-121 


1190 


- 88 


1520 


- 29 


1850 


- 58 


2180 


- 58 


2510 


-110 


2840 


- 62 


3170 


-230 


3500 


- 58 


210 


-131 


540 


-235 


870 


-114 


1200 


-246 


1530 


- 36 


1860 


- 58 


2190 


- 58 


2520 


-110 


2850 


-211 


3180 


- 61 


3510 


- 58 


220 


- 58 


550 


-187 


880 


-248 


1210 


-219 


1540 


- 18 


1870 


- 58 


2200 


- 64 


2530 


-248 


2860 


-119 


3190 


-156 


3520 


- 58 


230 


- 58 


560 


- 66 


890 


-227 


1220 


-116 


1550 


- 58 


1880 


- 58 


2210 


-121 


2540 


-197 


2870 


- 58 


3200 


-131 


3530 


- 58 


240 


- 58 


570 


-135 


900 


-183 


1230 


-125 


1560 


- 58 


1890 


- 58 


2220 


- 40 


2550 


-221 


2880 


- 58 


3210 


-223 


3540 


-195 


250 


- 58 


580 


- 82 


910 


-218 


1240 


-136 


1570 


- 58 


1900 


- 17 


2230 


-223 


2560 


-184 


2890 


- 58 


3220 


-199 


3550 


- 58 


260 


- 58 


590 


- 69 


920 


-174 


1250 


- 65 


1580 


- 58 


1910 


- 85 


2240 


-185 


2570 


-240 


2900 


-228 


3230 


- 68 


3560 


- 58 


270 


- 57 


600 


- 34 


930 


-199 


1260 


-225 


1590 


- 58 


1920 


-128 


2250 


-131 


2580 


-194 


2910 


- 85 


3240 


- 70 


3570 


- 58 


280 


-162 


610 


-157 


940 


-247 


1270 


-221 


1600 


-250 


1930 


- 30 


2260 


-226 


2590 


-245 


2920 


-142 


3250 


-167 


3580 


- 58 


290 


-217 


620 


- 75 


950 


-106 


1280 


- 64 


1610 


-116 


1940 


- 8 


2270 


- 58 


2600 


-197 


2930 


- 81 


3260 


- 55 


3590 


- 58 


300 


-140 


630 


-159 


960 


- 41 


1290 


- 58 


1620 


- 


1950 


-200 


2280 


- 58 


2610 


- 


2940 


- 58 


3270 


-228 


3600 


-171 


310 


-157 


640 


-176 


970 


- 56 


1300 


- 58 


1630 


- 73 


1960 


-117 


2290 


- 58 


2620 


-202 


2950 


-122 


3280 


- 30 






320 


-182 


650 


- 92 


980 


-224 


1310 


- 58 


1640 


-202 


1970 


-114 


2300 


-192 


2630 


-225 


2960 


-142 


3290 


- 67 


TOTAL: 
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iPor Tony Farrés» 



He aquí la adaptación musi- 
cal para MSX de dos conocidas 
bandas sonoras de dos pelícu- 
las: «El golpe» y «Segunda En- 
señanza». 



10 ? ^Í^Wi'WWWWWW 

20 "jr- 

30 ' J-' EL GOLPE J- 

40 *j> /. 

50 >J' TGNI PARRES 1986 J¡> 

60 ? J-' 

70 *J> PARA MSX-CLLIB « J> 



R 



106 
1 1 
120 
130 
1 40 



B CREEN 3 
□PEM"GRP: "AS#1 
P^ET'80, 10) ,0:PRINT#1 , "EL" 
P3ET ( 40 , 60 > , : PR I NTi* 1 . " 
PLAY " T 1 50 " , "TI 50" , "TI 50 " 
150 E 1 * : ="Q6L8DECÜ5AABGGDEC04AABGGDE 
C Ü 3 h A B A A - G G R 4 G 5 G R S " 

1 60 E2* = " 05L8DECQ4AABGGDEC03AABGGDE 
C02AABAA-"bGR4G3GR8" 

1 70 P 1 *- "L 1604DDttEü5CC04E05CCG4EC35C 
L4CR 1 6L i 6Ü5CDD#ECDEE0AB05DDC4RS04L 1 
6DD#EQ5CCG4E05CC04E05CC4R8L1604AGP# 
AC5CEEDC04AQ5L4DR8L 1 604DD8 " 

180 P2*="RS03CSR8C3R8F8ReF8R8C8R3G8 

R8CBR8GSR 
8R8G8R8" 

1 90 F3*« " R 3 R 8 4 C 8 R 8 C 8 R 8 F 8 R 8 F 8 R 3 C 8 R 8 
G8RSCSR8G3R8C8R8C8RSF8RSF8R8D8R8D8R 
8G8R8G8" 

200 G1 $-="L:6ü4EC5CC04E05CCÜ4ED5CC4R 
16L16CDD#ECD 
ECDEECDCECDEEÜ4B05DDC4 " 
210 G2*="L803C8R8C8R8F3R3P8R3C8R3GB 



RSC8 
8R8" 
220 
R 
8" 
230 
EC04 
ttGGA 
240 
EC04 
#EEA 
250 
F8R8 
260 
2 7 



R 



G3*^"Ü4R8C8R8C3RSF8RBF8R3C3R8G8 



H 1 *= " R 1 6L 1 605EFFttGG AGGEFF#GG AGG 
GmB05CDEDCDG4G05EFGAGEFGGAGGEFF 
GGR1 6AA#" 

R3*« " R 1 6L 1 605CDD#EEAEECDD#EEAEE 
GABG5CDEDCD04G05EFGAGEDEEAEECDD 
EEGAA# " 

H2*= " □ 3 C 3 R 3 C 8 R 3 C 8 R 8 C 8 R 8 C 3 R 8 F 8 R 8 

C8R8C8R3C8R8C8R8C8R8C8R3" 

RE*=-"05L16B" 

I1*-"05L16BAF#DG4R16L16EFF#GGAG 




— 







GEFFttGGAGGEC04GAB05CDEDCDC4R 1 604L 1 6 
GFttG05CCÜ4A05CC04A05C04AG05CEGGEC04 
GAGn5CSE16D8C16C8" 

280 I2*="05L16BAF#DG4R16L16CDD#EEAE 
ECDD#EE AEER 1 6R 1 6R 1 6R 1 R 1 04F#8F#8G i 6F 
3E16E8" 

290 I3*="03D8R3G8R3G3R3C3R8C3RBC8R3 
C8R8F8R8F8R8C8R8C3R8F8RSF#R8G804A3ü 



3A8F:3D8R8G8R8C8• , 



300 
310 



340 
350 
360 
370 
380 
390 
400 



420 
430 



PLAY "VI 5" , "V12" , "VI 2" 

PLAY E1*.,E2* 

FOR 1=1 TO 2 

PLAY"T75" ! , "T75", "T75" 

PLAY F1*,F2*,F3* 

PLAY G1*,G2*,G3* 

PLAY H1*,,H2*,H3* 

PLAY RE*, "Ü3D16",RE* 

PLAY RE*+RE*, "03D16R16",RE*+RE* 

PLAY RE*, "o3dl6",RE* 

PLAY II*, 13*, 12* 

IF PLAY(0)=-1 THEN 410 ELSE 420j 
NEXT 
END 
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10 


- 53 


80 -- 58 

V./ fm' *— ' W 


150 


- 67 


220 


-179 


290 


- ^2 


•-'Q!. 






20 


- 58 


90 ~ 53 


1 60 


- 62 


230 


-145 


300 


- 19 




("i 
y.' 




30 


- 53 


100 -217 


170 


-113 


240 


-237 


310 


- 34 


330 


- I" 7 




40 


- 58 


1 1 i~A — •~ , r> /i 


1 ow 


.... "7 T 


2513 
j~ -../ >.' 


— 1 "=¡4. 


o ¿Sel 


— 1 RA 


t r~i 


- S4 




50 


_ "=¡p 


1 l'fi'i n /i c 

I -ifí' ~.¿.4u 


+ o r,< 
1 ~r\0 


- 75 






33«> 


-r-r 

- 37 


400 


-246 




60 


~ 53 


130 -229 


200 


.... 19 


270 


- 45 


340 


-2-7 


410 


-173 


TC' T AL s 


70 


- 53 


Í.40 -163 

• 


210 


- 57 


230 


-241 


350 


-240 


4 20 


- Í 3 1 


4961 



























' ■? 

SEGUNDA ENSEÑANZA J? 

: ' 4 

? J3 TON I F ARRES 1986 % 

9 4 . -g 

PARA MSX-CLUB 
: " 4 J3 

SCREEN 3 

COLOR 15,4,4:CLS 
OPEN"GRP: "AS#1 

PSET (25,1 ) ; : PR I NT# 1 , " SEGUNDA " 
PSET<57,60) ,0:PRINT#1, "EN3E- " 
PSET (57, 110) ,0:PRINT#1, " FIANZA" 
PL A Y " V 1 5T 120 " , " V 1 2T 1 20 " , " V 1 2T 1 2 



10 

20 
30 
40 
50 
60 
70 
80 
90 
1 00 

1 10 

120 
130 
1 40 
150 
160 
0" 

170 A11>= ,, 04G4A8.\ G5C#32D4. C8E104G4A 
8. .05C#32D4.C8E1G4B405C3. .F#32G4.F8 
A2.G4" 

1 80 A2*~ " R204C 1 03B 1A1G1F1G2" 

1 90 -A3*= " R204 C1E1 03 A 1 04E 1 F 1 03G2 " 

200 B1$="05G4F4G1G2F4E8. .F#32G4.F80 

4A105F4E4F4.E804G105C404B8. . 05D#32E 

4.D304A2" 

2 1 B2*= " 03G2E í A1F1G1 04C203B2A2F2D2 
F2" 

220 B3*= » 03G204E 1 03 Al 04F 1 03G 1 04C2E2 
03A104D1" 

230 C1*="A404B405C404A405D1D2" 
240 C2$="03D1G1G2" 
250 C3$="04D103G1G2" 

260 DI*»" 05D#32E4 . D804G205D8E8C2C4 " 




270 
230 
290 
300 
3 1 
320 
330 
340 
350 
360 
370 



D2*= " R3203G 1 04C4V 10C2C4 " 
D3*=-' R32Ü4G 1 04C4 V 1 0C2C4 " 
FOR 1=1 TÚ 2 
PLAY A1*,A2*,A3$ 
PLAY Bl*,B2*,B3* 
PLAY C1*,C2*,C3* 
PLAY A1*,A2*,A3* 
PLAY B1*,B2$,B3* 
PLAY Dlí, D2*,D3* 



IF PLAY(0)=-1 
MEXT 
END 



THEN 360 ELSE 370 



Test de listadoi 



10 


- 58 


70 


- 58 


1 30 


- 52 


190 


- 27 


250 


- 56 


310 


-225 


20 


- 58 


80 


- 58 


140 


-215 


200 


-197 


260 


- 1 64 


320 


-228 


30 


- 58 


90 


- 58 


Í 50 


-128 


210 


- 1 00 


270 


- 27 


330 




40 


- 58 


100 


-217 


160 


-200 


220 




230 


- 29 


340 


-225 


50 


- 58 


1 10 


- 54 


X 70 


- 1 60 


230 


-155 


290 


-184 


350 


-231 



370 -i 31 
330 -129 



TOTAl 




ama. 



— — 



,Por Willy Gundin, 




SPORT 



Cada vez están más de moda 
las postales, pósters, pegatinas 
de Snoopy. Nosotros no vamos 
a ser menos, así que aquí tenéis 
una divertida imagen de Snoo- 
py: SNOOPY SPORT. 



10 

20 
30 
40 
50 
60 
70 



'P*t SNOGPY SPORT 0» 
WILLY GUNDIN ft« 
(c) Marzo ' 87 *» 

•V9f PRESENTACION xx 

í* A.* AV AV *W A»' A." /V A.' A.' /V' A. 1 A.' A." A.* A»' A.' A,' AV A.' A.» 

A> A,- *V rW A»* A.' At* A»' A»* A.- A^ A.- A.' A.- A." A,' /%.• £• 



80 SCREEN 2:0PEN ,, GRP: "AS#1 
90 LINE<0,0>~<256, 192) , 1 , BF 
100 LINE(40,5>--<220, 113) ,4,BF 
110 LINE (40, 116)~<220, 187) ,3, BF 
120 LINEO, S>-<30, 187) , 13, BF 
130 LINE (225, 5) -(250, 187) , 13, BF 
140 LINE(8,8>-<27, 184) , 1 , BF 
150 LINE (228, 8) ~ (247, 185) , 1 , BF 
160 S*«"C15R8E2U6H2L6H2U6E2RS" : 
170 0*«"H2U16E2R6F2D16G2L6": ' 
1 80 P*« " U 1 7D8R8E2U7H2L 1 " i* P 
190 DRAWBM12, 40XS*j " s "5 
200 DRAW " BM 1 2 , 65U20F 1 0U 1 0D20 " : 
210 DRAW"BM12,90XO*s ": ? Q 
220 DRAWBM12, 115X0$; ": '0 
230 DRAWBM12, 140XP*; " : ' P 
240 DRAW "BM 12, 165U5D5R8U20D10L10U10 



S 



N 



250 
260 
270 
280 
: 'R 
290 
300 
310 



DRAW"BM234,52X5*; " : " S 
DRAWBM234, 77XP$; ": M» 
DRAWBM234, 102X0*5 " : " 
DRAW » BM234 , 1 27U20R8F2D6G2L8F 1 1 



DRAWBM237, 152U20L5R10" : 

' xxxxxxxxxxxxx 
* xx MANOS xx 



TOí'll !• rv /v »w ry »v 

■mf Am W ÍS> W A.' ÍS> A.' ÍV *W ÍW /W IV 

330 DRAW"BM95, 102C15MB7, 104M80, 101M 
77,96M75,99M72, 100M70, 103M72, 105M70 
, 106M68, 109M72, 1 1 1M76, 1 1 1M83, 114MB3 
, 106M78, 1 18M92, 1 14MS4, 1 16M95, 1 10M95 
, 102" 

340 PAINT (94, 103) , 15 

350 DRAW " BM 1 68 , 95C 1 5R 1 0M 1 89 , 85R4M 1 8 
5 , 93R20F3D3G3L37M 1 68 , 95 " 
360 PAINT (189, 86) , 15 

370 CIRCLE<200,87> ,8, 14: PAINT (200, 8 
71, 14. 

.J,. Q Iv- £• X X X X X X X X X X <w X 

390 *»» RAQUETA *0 

400 ' --i- * X X X X X^Z-Z-^XX 




— 



410 CIRCLE<57,60) ,30,6, , , 1.4 

420 DRAW"BM62,B7C6M7ó, 127M82, 125M70 

,87M62,87" 

430 PAINT (57, 60) ,6 

440 CIRCLE<57,60> , 17, 15, , , 1.4 

450 PAINT (57, 60) , 15 

460 PAINT (65, 90) ,6 

470 ' % X X X XXXXXXXXXX 

480 '** VISERA *« 

490 * xxxz ■xxxxxxxxxx 

500 DRAW " BM 1 06 , 25C3M 1 1 9 , 1 0M .1. 35 , 8M 1 4 

6, 1 711106,23" 

510 PAINT (135, 9) ,3 

520 DRAW " BM 1 03 , 32C 1 1 M 1 07 , 25M 1 80 , 1 0M 

187, 14M103,32" 

530 PAINT (180, 11) , 11 

CIRCLE(206,55) ,5, 1 : PAINT (206 , 55 



540 

> i* 

550 

560 
570 



' XZZ-ZZXXXXX', 

* xx ROSTRO 



! X X X X X X X & X X X X X X 

Y DETALLES xx 

9 X X X X X X X X X X X X X X X X X X X X í¿ X X X X 
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580 DRAW " BM 1 30 , 85C 1 5M 1 22 , 73BM85 , 75U 

1 BM 1 03 , 33M 1 50 , 22M 1 66 , 35R25BM200 , 79M 

163,75M153,85M130,85" 

590 CIRCLE (104,75) , 18.5, 15,3. 1 

600 CIRCLE(185,57) , 22, 15: PAINT (185, 

57) , 15 

610 LINE(131,B6)™<153,93) , 1 , BF 
620 PAINT (150, 23) ¡ 13 




630 DRAW " BM 163,73C4W1 40 , 60BM 145,640 
1 3M 1 49 , 57M 1 54 , 54M 1 60 , 60D4M 1 55 , 68M 1 4 



Test de listad 




5,6 
640 
650 

660 
670 
680 
690 

700 



PAINT(149,5B) p 13 
CIRCLE<150,37> ,2, 
PSET(150,37) t 15 
DRAW"BM122,76C0U30" 



1:PAINT(150,37 



!• r.- #v (W y *v «i' JW {*•; 

tv «w »».• «Si- »v (W is.- n.- <•.' <%•• 

'kk JERSEY Mflf 

DRAW"BM163,94C13L38M95, 102D8M12 
5 , 1 03M 112,11 7R45M 1 63 , 1 03R5M 1 68 , 94 " 
710 PAINT < 167, 95) , 13 

A.' tS.' A.' A.' /V- A,' A.' A,* A.' Ai* A.« 
A.- A.' A.' A.' A," /V.' A." A." A,' A^ A»* 

»« PIES 



, 149M87. 141 
03, 174M96, 1 



720 
730 

740 r t¿%% i &9¿KK%?¿%X¡% 

750 DRAW " BM 1 03 , 1 46C 1 5M95 
M84, 145M81, 151M93, 178BM1 
57M10.8, 151M103, 146" 
760 CIRCLE (99, 177) ,5, 15 
770 PAINT (99, 177) , 15 
780 PAINT (103, 147) , 15 
790 DRAW "BM 130, 162C15M122, 174M122, 1 
B1M132, 1B5R28BM160. 175L.17M13B, 171M1 
38, 164M130, 162" 
800 CIRCLE (160, 180) ,5, 15 
810 PAINT (160, 180) , 15 
820 PAINT (130, 165) , 15 
830 



? At* A** A>* A.' A-- A.' Ai' A.' A»' A.' A»* A.' A.' AH M 
A.' A.' Ar* A." A.' A.' A.' A.' A.- A.- A.' A." A.* A.' A,' /W 

B40 '»* PANTALON ** 

tal K' K» IW «■' (W A.* «w />.• *v- <v /v 

860 LINE(112, 117) -(156, 126) . 15, BF 

870 DRAW "BM 156, 127C5L45M103, 142M108 

, 152M11B, 157M125, 153D6M140, 168M153, 

135M156, 127" 

880 PAINT (155, 128) ,5 

890 DRAW "BM 124, 153C1M135, 147" 

900 FOR C=l TG 15 

910 PRESET (170, 170) , C : COLOR CzPRINT 
#1, "Willy" 
920 NEXT C 
930 GOTO 900 



10 


- 58 


150 


-103 


290 


- 80 


430 


- 18 


570 


- 58 


710 


-168 


850 


- 58 


20 


- 58 


1 60 


- 85 


300 


- 58 


440 


- 88 


580 


- 1 33 


720 


- 58 


860 


-212 


30 


- 58 


170 


-109 


310 


- 58 


450 


- 25 


590 


-253 


730 


- 58 


870 


- 81 


40 


... 5 Q 


180 


- 8 


320 


- 58 


460 


- 56 


600 


-180 


740 


- 58 


880 


-183 


50 


- 58 


190 


*•> 


330 


-170 


470 


- 58 


610 


-152 


750 


-214 


890 


- 15 


60 


- 58 


200 


-185 


340 


-105 


480 


- 58 


620 


- 81 


760 


-247 


900 


-189 


70 


- 58 


210 




350 




490 


- 563 


630 


-250 


770 


-184 


910 


-220 


80 


-242 


220 


- 49 


360 


-183 


500 


-227 


640 


-113 


780 


-158 


920 


-198 


90 


-132 


230 


- 48 


370 


- 


510 


- 44 


650 


-184 


790 


-245 


930 


- 30 


100 


- 74 


240 


-124 


380 


- 58 


520 


- 54 


660 


-234 


800 


- 55 






110 


-254 


250 


- 59 


390 


- 58 


530 


- 95 


670- 


- 58 


810 


-248 






120 


-186 


260 


- 63 


400 


- 58 


540 


-179 


680 


- 58 


820 


-203 






130 


-112 


270 


- 99 


410 


- 94 


550 


- 58 


690 


- 58 


830 


- 58 


TOTAL: 
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,Por Carlos Díaz SandovaL 



En este sencillo juego debes 
destruir tantas veces como te 
sea posible al enemigo que pu- 
lula por la parte superior de la 
pantalla y que te disparará mor- 
tales llamaradas que debes es- 
quivar. 



1 ' 

2 ' tltl EXALTIAN MU 

3 ' 

4 ' 

5 ' - POR CARLOS DIAZ - 

6 ' 

10 ' - PRESENTACION - 

20 COLOR 6,14:SCREEN 0:KEY 0FF:TB«15:V 

H»3:F»0 

30 PRINT" EXTALTIAN" 
40 PRINT" ttWttrtf 
50 PRINT : PRINT: PRINT"De Carlos . Díaz 
Sandoval para: "-.PRINT 
60 PRINT" MSX-CLUB DE PROGRAMAS" 
70 PRINT: PRINT: PRINT: PRINT"E1 ige el ni 
vil:" 

80 PRINT:PRINT"F-1 NIVEL 1 F-6 

NIVEL 6":PRINT 

90 PRINT"F-2 NIVEL 2 F-7 N 

IVEL 7":PRINT 

100 PP.lNT"F-3 NIVEL 3 F-B 

NIVEL B'jPRINT 

110 PRINT'F-4... ..NIVEL 4 F-9 

NIVEL 9":PRINT 

120 PRINT-F-3 NIVEL 3 F-10 

NIVEL 10":PRINT 

130 PRINT" (Pulsa CESC1 para instrucc 
iones.)" 

140 KEYl,"r:KEY2,"2':KEY3,"3":KEY4,"4 

":KEY5,"5":KEY6,"6":KEY7,"7":KEY 8, "8" 

:KEY 9,"9":KEY10,"0" 

150 A$=INKEY$: IF Al»" THEN 150 

160 IF AI»CHRI(27) THEN 1410 

170 A=VAL(AI):IF A»l THEN NB»1:60T0 28 



180 IF A=2 THEN NB»2:60SUB U60:GOTO 2 
B0 

190 IF A»3 THEN NB=3:G0SUB U60:GOTO 2 
80 

200 IF A=4 THEN NB»4:G0SUB 1160:GOTO 2 
60 

210 IF A=5 THEN NB=5:G0SUB 1160:GOTO 2 
80 

220 IF A=6 THEN NB=6:G0SUB 1160:6OTO 2 
80 

230 IF A=7 THEN NB»7:60SUB U60:6OTO 2 




240 IF A=6 THEN NB»8¡60SUB 1160:6OTO 2 
80 

250 IF A»9 THEN NB=9:60SUB 1160:GOTO 2 
60 

260 IF A»0 THEN NB=10:BOSUB 1160:6OTO 
280 

270 GOTO 20 

280 PLAY"04GR6468R6468R6405C8R64C804R6 
4G2":C0L0R i,ll f ll:SCREEN 2,2,0,1:X1»1 
•:PT=0:C=2:RESTORE 1280 
290 ' - DEFINICION SPRITES - 
300 FOR A»0 TO 4: Al»"" 

310 FOR B»l TO 32: REAO Bl 





320 AI»AI+CHRI(VAL("*H"+BU) 
330 NEXT B:SPRITEI(A)»AI:NEXT A 
340 ' 

350 ' E X T A L T I A N 

360 ' DE C.D.S. PARA HSX-CLUB 

370 ' zzzzzzzzzzzzzzzzz 

380 X»100:VDI»"ááá" 

390 LINE(180,0)-(255,191),10 ( BF 

400 PSET(10,10),1:PSET<30,110),1:PSET( 

50,50), 1:PSET(70,175>,1:PSET(90,90),1: 

PSET(110,60) ( 1:PSET(130,30),1:PSET(150 

,100),1:PSET(170,70),1:PSET(160,140),1 

:PSET(140 ( B0),l:PSET(120,180),i:PSET(9 
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1,75), i 

410 ' - MARCADOR - 
420 0PEN"GRP:"ASI1 

430 DRAH"BH1BS 9 10":PRINTtl t "PUNTOS: ■ 
440 DRA«"BHl?S,25":PRINTil,USIN6"tt##« 
TjPT 

450 DRAtl"BMlB5,50":PRINTtl, "NIVEL:* 

460 DRAW"BM195,65":PRINTI1,NB 

470 DRAK"BH185,100":PRlNTtl, "VIDAS:" 

480 DRAH , BH195,125"iPRINTIl, , AAA" 

490 DRA«"BH185, 150" : PRINTt 1 , "RECORD: " 

500 DRAW"B«195, 165" : PRINTií , RP 

510 ' - BUCLE PRINCIPAL - 

520 GOSUB 550:GOSUB 750:6OSUB 600:GOSU 

B 960:GOSUB 910:GO5UB 650-.6OSUB 1110 

53« GOTO 520 

540 ' - SUBRUTINA DE MOV. NAVE - 
550 S*STICK(0) OR STICKU) 
560 IF S=3 OR S=2 OR S*4 THEN X=X+4 
570 IF S=7 OR S=8 OR S«6 THEN X=X-4 
580 RETUPN 

590 ' - SUBRUTINA IMPRIME SPRITES - 
600 PUT SPRITE 0,(X 1 160>,15,0 
610 PUT SPRITE í, (í, 174), 9,1 
620 PUT SPRITE 2, (XI, 30), 5,2 
630 RETÜRN 

640 ' - SUBRUTINA DISPARO NAVE - 
650 IF (STRIG(l) OR STRIG(0))<>-1 THEN 
RETURN 

660 FM=X: BEEP 

670 FOR 11=154 TO STEP -20 
680 PUT SPRITE 3,(FM,H),1,3 
690 IF M<45 AND MM5M9 AND FM+14>X1+1 
AND FM<X1+14 THEN GOSUB 790 
700 GOSUB 550:GOSUB 750:GOSUB 600:GOSU 
B 910 

710 NEXT M 

720 PUT SPRITE 3, (255, 190) , 10,3 
730 RETURN 

740 ' - SUB. MARGENES NAVE - 
750 IF X<10 THEN X«10 
760 IF X>164 THEN X»164 
770 RETURN 

780 ' - SUBRUTINA IMPACTO KRANUC - 
790 PT«PT+100:PUT SPRITE 2,(200,170),! 
f,2:GOSUB 810:GOSUB 550:GOSUB 750:GOSU 
B 600: RETURN 

800 ' - SUB. ACTUALIZA MARCADOR - 
810 LINE(195,25)-(255,35),10,BF 
820 DRAN"BM195,25":PRINTIl,USING"t$m 
t";PT 

830 LINE(195,65)-(255,75),10,BF 
840 DRAW"BH195, 65" : PRINTfl , NB 
850 LINE(195,125)-(255,135),10,BF 
860 DRAW"BM195,125":PRINT*1,VD$ 
870 LINE(190,160)-(255,191),1Í,BF 
880 DRAWB«l?5,165':PRINT#l f RP 
890 RETURN 

900 ' - SUB. MARGENES KRANUC - 



910 IF XK11 THEN X1*10:AX=+VH 
920 IF X1M65 THEN X 1=166: AX=-VM 
930 XW1+AX 
940 RETURN 

950 ! - SUBRUTINA DISPARO KRANUC - 
960 IF X>Xl-3 AND X<Xl+3 THEN 980 
970 IF INT(RND(-T1HE)ITB)*K>1 THEN RE 
TURN 

980 MM=X1:SOUND6,0:SOUND7,7:SOUND8,16: 
SOUND9,16:SOUND10,16:SOUND12,96:SOUND1 
3,0: 

990 FOR ZM=30 TO 185 STEP 20 
1000 PUT SPRITE 4,(HH,ZH),3,4 
1010 IF HM>X-14 AND HM<X+14 AND ZH)160 
AND ZM<174 THEN 1070 
1020 GOSUB 550: GOSUB 750: GOSUB 600: GOS 
UB 910 
1030 NEXT ZH 

1040 PUT SPRITE 4, (255, 190), 10,4 
1050 RETURN 

1060 ' - SUBRUTINA IMPACTO NAVE - 
1070 VD$=LEFTS(VD$,C):SOUND 6,15:S0UND 
7,7:S0UND 8,16: 

¡SOUND 12,56:S0UND 13,0:PUT SPRITE 4, ( 
255, 191) , i , 4 : GOSUB 810 
1080 IF C=0 THEN BEEP»PLAY"04C803B16B- 
16A16A-166166-16F16E16E-16D16D-16C1602 
B16B-16A16A-16G16G-16F16E16E-16D16D-16 
C , :FORP=lTO1600:NEXTP:CLOSEIli6OTO 20 
1090 C=C-1:RETURN 

1100 ' - SUB. RECORD,V. EXTRA Y FIN 
1110 IF PT>RP THEN RP=PT 
1120 IF PT>=10000 AND F=0 THEN VD$=VDl 

+"A":C=C+l:F=l:PLAY"07CE6" f "04CE6", "02 
CEG" 

1130 IF PT=>25000 THEN 1340 
1140 RETURN 

1150 ' - DISTINTOS NIVELES - 
1160 IF NB=2 THEN TB=TB-1 : VH=VM*2 
1170 IF NB=3 THEN TB=TB-2:VH=VH+4 
1180 IF NBM THEN TB=TB-3:VH=VN+6 
1190 IF NB=5 THEN TB=TB-4:VH=VM+B 
1200 IF NB=6 THEN TB=TB-5sVH=VH*l0 
1210 IF NB=7 THEN TB=TB-6iVH*VH+12 
1220 IF NB=8 THEN TB«TB-7: VM=VH+14 
1230 IF NB=8 THEN TB=TB-8:VH*VH+16 
1240 IF NB=9 THEN TB=TB-9i VM=VH+18 
1250 IF NB=10 THEN TB«TB-10:VH"VH*30 
1260 RETURN 
1270 » - 

1280 DATA 3,4,8,1I,10,23,27,3F,3F,3C,3 

B,67,7F,7C,FC,E3,C0,20,10,B,B,C4,E4,FC 
,FC,3C,DC,E6,FE,3E,3F,C7 
1290 DATA 3,6,1C,18,3B,3C ( 3C,3C,3E,1E, 
7,3,3,1, 0,1, CI,6I,38,18,1C,3C,3C,3C,7C 
•,78,E0,C0,C0,0,8f,f 
Mi DATA 82,61, 7F,23,75,73,FE,FD,FF,B 
B,53,2E,3F,1F,E7,CA,41,B6,FE,C4,AE,CE, 
7F,BF,FF,BB,56,EC,FC,FB,F7,AB 



1310 DATA 4,4,E,E,E,E,4,4,E,4,4,0,8,A, 
A,8,20,20,70,70,70,70,20,20,70,20,20,0 
,40,50,10,10 

1320 DATA 24,BC,6E,5E,7F,75,3F,3B,3E,2 
F,BF,B7,1D,1E,4B,67,20,AA,CA,EA,BA,FA, 
74,FC,BC,ED,DC,F4,B8,BB,F3,E7 
1330 1 - VICTORIA NAVE - 
1340 COLOR 6,14,14:SCREEN 3 
1350 DRAN , BH30,30":PRINTil,"LO HAS" 
1360 DRAWBH20, 100" : PRINTil, -LOGRADO" 
1370 PLAY"03C8E8C8G8DBGBF8E8D8C2* 
1380 FOR PM TO 2000:NEXT 
1390 CL0SE-.60T0 20 
1400 > - INSTRUCCIONES - 
1410-CLS:BEEP:PRINT" I N S T U C 
C I O N E S":PRINT:PRINT 
1420 BEEP:PRINT" El lonstruo volador 
kruuc ti vi* 

1430 BEEP:PRINT"i intintar dtitruir ti 
randoti trozos" 

1440 BEEP:PRINT"di iitioritos espacial 
ii. Pin qui" 

1450 BEEP:PRINT"cisi m su ataque debí 
rás litarlo, 1 

1460 BEEP:PRINT"cosa qui solo lograrás 
haciendo 1 

1470 BEEP:PRINT"25.000 Ptos.'sPRINT 
1480 BEEP: PRINT" Eipiezas la partida 
con 3 naves de" 

1490 BEEP:PRINT"reserva, y se te dará 
otra cuando" 

1500 BEEP:PRINT"consigas 10.000 Ptos." 
:PRINT 

1510 BEEP: PRINT" Cada vez que le des 
de lleno al" 

1520 BEEP:PRINT"ionstruo se te darán 2 
00 Ptos. y tí* 

1530 BEEP:PRINT"le das en un lado 100 
Ptos.'sPRINT 

1540 BEEPsPRINT" Puedes jugar con cur 
sorft o con' 

1550 BEEP:PRINT"iando en el Port-i." 
1560 BEEP: BEEP: BEEP: BEEPsPRINT: PRINTsP 
RINT" ( Pulsa una tecla. )":BEE 

P 

1570 IF INKEY$="" THEN 1570 
1580 GOTO 20 
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Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos,: 



BASES 

1. ° Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. ° Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. ° No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. ° Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
Línea Directa. 



PREMIOS 

5. " MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. ° MSX.CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 



FALLO Y 
JURADO 

7. ° El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. ° Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
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¡¡COMPLETA TU HEMEROTECA DE PROGRAMAS!! 





ms 



1 Q ! ■•W!. 



N."9 a 12-475 PTAS. N.° 13 - 175 PTAS. 





PROGRAMAS ¡ ' j 



cwvaiauHin 4f f/^ 



N.°* 16 y 17 • 350 PTAS. N.° 18 - 175 PTAS. N.° 19 - 175 PTAS. E. SOFTWARE • 275 PTAS. N.°20 - 175 PTAS 




N.°21 - 175 PTAS. 




N.' 22-23 - 350 PTAS. N.° 24 - 225- PTAS. N.° 25 - 225 PTAS. N.° 26 - 225 PTAS. N.° 27 - 225 PTAS. 




f * 



N.°28-225 PTAS. 






ü 

N.° 29 - 225 PTAS. N • 30-31 - 450 PTAS. N.° 32 - 225 PTAS. 




SI TE HACE FALTA ALGUN NUMERO DE 




PIDELO HOY MISMO! 



Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 



■BOLETIN DEP: 



anuid 



Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

I gastos de envío, por lo que adjunto talón n.° del Banco/Caja I 

| por el importe de ptas. a nombre de MANHATTAN TRANSFER, SA. 1 

I NOMBRE Y APELLIDOS I 

| CALLE N.° CIUDAD «i | 

I DP PROVINCIA 

••••• ••• 

TEL. 

■ | 
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Monitor al día. 



TERMINATOR 



Un joystick muy explosivo 



TERMINATOR es el revolucio- 
nario joystick que hace su apari- 
ción en el campo MSX. Su es- 
pectacular fisonomía se combina con 
una excelente comodidad y facilidad 
de movimientos. 

TERMINATOR es aparentemente 
una granada de mano; pero de cerca es 
el joystick que te permitirá batir todos 
los récords en tus videojuegos. 

Puede utilizarse con una sola mano, 
gracias a su original diseño, y al contro- 
lar la dirección con un solo dedo se ob- 
tiene una gran precisión y comodidad. 
Puedes estar horas y horas jugando sin 
que se aprecie el cansancio habitual de 
los joysticks que precisan de las dos 
manos para funcionar. 

Diseñado y fabricado en Dinamarca, 
TERMINATOR tiene una gran sensi- 



bilidad y 1.50 metros de cable, para no 
quedarse "pegado" al ordenador. 

TERMINATOR está importado y 
distribuido por: 
ZAZA SOFT 

Pje. Josep Lloverás, 5. Atico D 
08021 Barcelona 
Tlf.: (93) 417 69 15 




LA NORMA MSX, 
PRESENTE EN 
SONIMAG'87 

Las más importantes compañías 
de hardware y software en MSX, 
han anunciado su participación 
en la próxima celebración de la edición 
número 25 de Sonimag. Estas empre- 
sas, presentarán sus productos actua- 
les, así como algunas novedades que en 
nuestro próximo número destacare- 



mos. Las compañías que han confirma- 
do su asistencia son las siguientes: Dro 
Soft, Discovery Informatic, Idealogic, 
S.A., Mind Games, Philips Ibérica, 
Sanyo España, Sony España y S.V.I. 
Protomec. Por nuestra parte, anuncia- 
ros que nos encontraréis en el Palacio 
Ferial número 4, nivel 9, Stand 905. 
Manhattan Transfer, siempre puntual 



EXCELENTES RELACIONES 
ENTRE MSX CLUB Y ASCII 
CORPORATION 

4SCII 

ASCII CORPORATION 

Aprovechando la celebración de 
la feria internacional del sonido 
y la imagen (Sonimag), el direc- 
tor internacional de ASCII Corpora- 
tion, Mister Frank Berberich, acaba de 
anunciarnos su visita a Barcelona. Du- 
rante su estancia en la ciudad condal, 
míster Berberich aprovechará la oca- 
sión para conocer nuestras instalacio- 
nes y efectuar un cambio de impresio- 
nes. Este encuentro refleja las inmejo- 
rables relaciones actuales que nuestra 
revista mantiene con ASCH Corpora- 
tion, los padres de la gran norma están- 
dar MSX. El viaje de míster Berbe- 
rich, se enmarca dentro de la nueva po- 
lítica de expansión emprendida por la 
compañía nipona, cuyas directrices 
más importantes se dirigen hacia la ma- 
yor popularización -si cabe- de la nor- 
ma a nivel mundial. 



ASTERIX Y LA POCION 
MAGICA 

Nuevos videojuegos 

Los conocidos personajes de René 
Goscinny y Albert Uderzo, Aste- 
' rix, Obelix y demás han traspa- 
sado las fronteras de la informática. 

Por el momento ha salido al merca- 
do francés la versión para PC de este 



TERMINATOR, el primer joystick explosivo para los MSX. 
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interesante juego, basado en las aven- 
turas de estos personajes. En la parte 
superior de la pantalla se representan 
las caras de ASSURANCETORIX y de 
OBELIX, el objeto que esté transpor- 
tando ASTERIX en ese momento y las 
cinco cajas en las que hay que introdu- 
cir los cinco ingredientes que compo- 
nen la famosa "opción mágica". 

PANORAMIX, el druida, ha sido 
apresado por los romanos, que quieren 
utilizar sus conocimientos mágicos. 
ASTERIX debe emprender la difícil 
misión de rescatarlo. 

Este interesante juego está compues- 
to por numerosas pantallas, con unos 
excelentes gráficos y una inmejorable ^ 
animación. Se trata de un programa 
que dados sus excelentes gráficos po- 
demos esperar se versione pronto para 
los MSX de segunda generación. 





SUPER RAMBO ESPECIAL 



Un super juego para este otoño 



RAMBO ataca de nuevo. El im- 
parable ídolo americano ha 
reemprendido sus cacerías de 
"chinos" por todo el oeste asiático. Sus 
correrías no sólo han acabado con la 
mitad del ejército vietnamita, sino que 
han arrasado profundamente las filas 
de programadores de Konami. 

Para intentar calmar los ánimos de 
nuestro imparable héroe tras su última 
irrupción en su sede central, KONA- 
MI ha lanzado un nuevo MegaROM, 
conunacalidí ' 



el monitor de un MSX (asiático por 
cierto) hasta el mismísimo personaje de 
Stallone. 

SUPER RAMBO ESPECIAL es el 
nuevo MegaRom de KONAMI que 
está causando sensación en toda Euro- 
pa. Se distribuye en dos formatos, 
MSX-1 y MSX-2; pero es esta segunda 
versión la que cuenta con los gráficos y 
la animación más espectaculares. 

No por nada está ya, al poco de su 
aparición, en el número uno de todos 
los Hit Parade europeos. En este es- 
juego, lleno de acción y de 



rentes zonas de una oscura v recóndita 
selva, intentando destruir al mayor nú- 
mero de sus enemigos. 

En este mismo número, y adelantán- 
donos al seguro éxito en nuestro mer- 
cado de este sensacional juego, inclui- 
mos un superpóster con el mapa de 
este magnífico juego, en el que encon- 
traréis la posición de todas las armas, 
bases enemigas, así como todos los ob- 
jetos y flores que componen el paisaje 
de este juego. 

No te lo dejes escapar, el nuevo Me- 
gaRom de KONAMI para que pases 
un otoño "caliente"... 



CP/M PLUS PARA MSX-2 



En contacto con la empresa ale- 
mana RVS Datentechnick se nos 
ha informado de la aparición de 
un nuevo sistema operativo para los 
MSX de segunda generación. Se trata 
de CP/M Plus. 

Este sistema operativo no es más que 
una versión del popular sistema opera- 
tivo CP/M (versión 3.0). En esta ver- 
sión CP/M Plus ha mejorado notable- 
mente las versiones anteriores, ofre- 
ciendo un sistema de ayuda al usuario, 
protección por contraseña de discos y 
ficheros, redireccionamiento de las en- 
tradas y salidas, búsqueda por PATHS 
y otras muchas opciones que hasta aho- 
ra sólo podían conseguirse con ordena- 
dores muy superiores (PCs con sistema 
operativo MS-DOS 2.11o superior). 

Se abren ahora a los MSX cientos 
de programas profesionales como 
WordStar, dBase, Multiplan, con el ali- 
ciente adicional de que funcionarán 
más rápido que en otras máquinas, de- 
bido al especial interfaz de pantalla que 
incorpora esta nueva versión del siste- 
ma operativo. Según informes de RVS 
este S.O. accede a la pantalla 3 veces 
más rápido que otros sistemas simila- 
res. 

Además se incluyen un disco- RAM 
(de acceso instantáneo) de hasta 1 Mb 
de memoria y 61Kb de TPA para los 
programas gracias a la perfecta utiliza- 
ción de los Dáñeos de memoria. Todo 
esto compaginado con una perfecta 
compatibilidad con el BASIC de los 
MSX de segunda generación, que pue- 
de acceder sin problemas a los discos 
generados por este sistema operativo. 

Con este S.O. no se obtiene única- 
mente éste (como ocurre con el MSX- 
DOS) sino que se adquieren simultá- 
neamente una serie de programas de 



dor de textos (formato WordStar), un 
programa de comunicaciones emulan- 
do un terminal tipo VT52, un ensam- 
blador, un desensamblador, un linker y 
un programa de control de librerías, 
además de programas que compatibili- 
za sus ficheros con los del MSX-DOS y 
viceversa. Por último se incluye tam- 
bién un programa que permite la copia 
(sector a sector) de nuestros discos y un 
completo manual de instrucciones en 
inglés (por el momento). 

Esperamos poder ofrecer pronto un 
más amplio banco de pruebas acerca 
de este interesante paquete. 



CARACTERISTICAS 
TECNICAS 

• 61Kb de TPA para los programas de 
aplicación. 

• 120 Kb de RAM disk (ampliables a 1 
Mb). 

• Visualización rápida en pantalla. 

• Capacidad de vídeo inverso (ASCII 
elSO). 

• Emulación de VT52. 

• 12 diferentes juegos de caracteres. 

• Los mensajes de error no destruyen 
la pantalla de los programas de apli- 
cación. 

• Cursor de diferente color al texto. 

• Teclas de función definibles. 

• Emulador de segundo drive B: 
cuando éste no está conectado. 

• Utiliza discos de simple o doble 
cara. 

• Hasta 6 discos simultáneamente 
(posible utilizar 5.25"). 

• Soporta interfaz RS-232. 

• Soporta reloj de tiempo real. 

• Soporta impresoras MSX y no- 
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Graphics editor i 



.Marcel-lí Miret (ZAP STUDI), 



SET, LA PALABRA 
MAGICA 



£1 grafic editor, no es un progra- 
ma cerrado; la sentencia "set" 
nos permite programar la actua- 
ción del menú principal y ajus- 
taría de la forma más convenien- 
te. 



El camino está abierto 

En el capítulo anterior dimos una 
descripción clara y puntual so- 
bre el software ("Graphics Edi- 
tor") entreteniéndonos en la explica- 
ción del menú y los grandes bloques 
que lo componen, pero aún así, nos he- 
mos dejado muchas cosas en el tintero. 

Ahora queremos dar ese segundo 
paso en la exploración del menú, para 
acceder a otras prestaciones que nos 
abrirán las puertas del programa. 

Acceso y selección de menús 

El Graphics Editor, nos permite mo- 
dificar algunas de sus órdenes y selec- 
cionar su modo de actuación. Para ac- 
ceder a los menús, a través de los cuales 
podemos modificar un mandato, he- 
mos de situar el cursor sobre el icono 
en forma de lápiz volcado que se nos 
muestra en el menú principal. Una vez 
presionado el botón rojo de la esfera/ 
joystick o el teclado, el icono desapare- 
cerá cambiándose por la palabra 
"SET". La parte derecha del menú, al 
instante, se ve modificada, dejándonos 
ver los nuevos iconos a los que tenemos 
acceso. 

Cada parte del menú, según sean los 
elementos que la compongan, deja ver 
los elementos que se pueden modifi- 
car, siempre que esté actuando el man- 
dato SET. 

SET y los elementos de diseño 

Guando coincide SET con elemen- 
tos de diseño, en dicha parte del menú, 
vemos que sólo podemos modificar 
unos cuantos iconos: el lápiz transpa- 
rente, los textos; el spray, y la forma de 
relleno de superficies. 

La opción que tenemos sobre el lá- 
piz transparente es la de variar su inten- 
sidad de brillo. 

En el spray o aerosol podemos cam- 
biar el grosor del trazo y dispersión de 
tinta. 

A través de icono de textos, accede- 
mos al generador de textos. Este gene- 
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rador o editor, nos permite elegir entre 
varias caligrafías de textos, como son: 
letra gótica, popster, europea, clásica, 



etc.. Mediante las otras órdenes se 
puede variar el tamaño de las letras, la 
inclinación, la separación, etc.. 






Otros efectos de interés son la capa- 
cidad de generación de sombras y el 
perfilado de líneas exteriores de las le- 
tras. Todas esta opciones facilitan la 
elección de los colores que se deseen 
aplicar. 

El pincel, que sirve para rellenar su- 
perficies, nos da tres opciones de relle- 
no: 

1. Rellenar una superficie de un mis- 
mo color con otro color. 

2. Rellenar superficies de otro, color 
menos las que están rodeadas por el co- 
lor que se aplica. 

3. Rellenar superficies con tramas. 



SET y los elementos de la 

* 

memoria 

Pasamos a ver ahora, que opciones 
tenemos dentro de los elementos de la 
memoria que puedan ser también tra- 
tados con la sentencia SET. 

SAVE/LOAD. La pantalla de op- 
ciones para SAVE y LOAD es la mis- 
ma. En ella se nos muestran las diferen- 
tes opciones de lectura y grabación de 
datos: graphics editor/BASIC. Tam- 
bién cuenta con la posibilidad de leer 
varios dibujos y superponerlos. Dentro 
de esta superposición se puede elegir la 
opción ele trama consiguiéndose un 
efecto de interés. 
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PRINT. Al elegir PRINT se nos pre- 
senta un pequeño sub-menú con cua- 
tro salidas para impresora. Debemos 
elegir la que más corresponda al tipo 
de impresora que se vaya a utilizar. 

SET y los elementos del 
tratamiento de imagen 

La opción SET aplicada a los ele- 
mentos del tratamiento de imagen, nos 
da acceso a los iconos de SCREEN, en- 
trada de videomagnetoscopio o cámara 
y control del punto del mosaico. 

En el sub-menú de SCREEN se nos 
presentan los diferentes tipos de panta- 
llas que podemos utilizar. Cada opción 
de pantalla tiene sus propias particula- 
ridades, basadas en los colores y la defi- 
nición o cantidad de pixels. A menos 
definición, obtenemos más colores. 

En esta misma pantalla encontramos 
los iconos para cambiar el color de los 
"bordes" y el del papel, además del ico- 
no que sirve para desplazar la pantalla 
hacia los lados. 

Mediante el icono correspondiente 
al mosaico se determina la altura y la 
anchura que han de tener los puntos 
del mosaico cuando quieran usarse en 
algún diseño. 

Por último, vamos a ver las opciones 
que nos facilita el sub-menú del icono 
en forma de cámara. Este icono es el 
que se utiliza pra digitalizar o superpo- 
ner imágenes procedentes de fuentes 
de vídeo. 

El sub-menú correspondiente tan 
sólo nos facilita tres opciones: R.F; R; 
g.B; y SUPER. 

R.F. y R.G.B. los hemos de utilizar 
para indicar el tipo de conexión por la 
que se envía la señal de vídeo al orde- 
nador. 

R.F. indica señal de radiofrecuencia 
y R.G.B. se refiere a la descomposición 
de la señal vídeo en sus colores prima- 
rios (R.G.B. = Red, Green, Blue). 

SUPER se utiliza para superponer la 
imagen del ordenador sobre la imagen 
vídeo. Cuando la opción super no está 
accionada, la imagen enviada por el ví- 
deo se digitaliza instantáneamente 



Segundas conclusiones 

Una vez conocida la función y utili- 
zación del menú que nos ofrece el 
GRAPHICS EDITOR, es fácil poner- 
se a hacer dibujos. Aún así es posible 
que tengáis algunos problemas de aca- 
bado, sin embargo, os prometemos fa- 
cilitaros en una próxima edición algu- 
nas técnicas de empleo, seguidas usual- 
mente por los dibujantes que emplean 
este programa con asiduidad. Hasta el 
próximo contacto. 
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DINAMIC 



Para los usuarios de Spectrum de 
hace algunos años el nombre de 
DINAMIC tenía algo mágico. 
Se trataba de un grupo de jóvenes espa- 
ñoles que, con tesón y mucho trabajo, 
habían conseguido colocar sus progra- 
mas en los primeros puestos del Hit- 
Parade. 

Demostraban de este modo que los 
jóvenes programadores españoles pue- 
den competir en igualdad de condicio- 
nes con las renombradas empresas In- 
glesas de Soft, que cuentan con gran- 
des medios y enormes presupuestos. 

DINAMIC demostró que se pueden 
realizar juegos de muy buena calidad 
con sólo un ordenador y mucha pa- 
ciencia. Esa fue la clave del éxito para 
DINAMIC, ofrecer juegos y progra- 
mas de muy buena calidad, rápidos, 
muy adictivos y con unos gráficos ex- 
cepcionales. 

Gracias al éxito obtenido con sus 
programas ahora DINAMIC es la ma- 
yor empresa nacional dedicada a los vi- 
deojuegos, formada por un centenar de 
colaboradores y con un gran número 
de excelentes videojuegos a sus espal- 
das. 

Pero es meior que sean ellos mismos 
quienes nos hablen de su historia, de 
sus aspiraciones, y del método que uti- 
lizan para realizar sus juegos. Pasemos 
pues a la entrevista realizada, en que 
los componentes de este singular equi- 
po nos muestran su modo de trabajo. 

-¿Cuál fue el origen de DINAMIC? 
¿Quiénes fueron los fundadores? 
¿Cuándo comenzasteis? ¿Con qué or- 
denadores? 

El origen de DINAMIC fue el con- 
junto de unos cuantos amigos que vi- 
víamos en Montepríncipe y que tenía- 
mos una pasión común que eran los 
juegos de ordenador; y poco a poco 
empezamos hacer juegos cada vez me- 
jores, hasta que llegó un momento en 
que pudimos venderlos. Los dos pri- 
meros programas que comercializamos 
fueron el ARTIST, un equipo de dise- 
ño, y YENGHT, una aventura gráfico- 
conversacional; la primera en español. 

¿Que quiénes fueron los fundado- 
res?, pues en principio fuimos cinco: 



Yo, Pablo Ruiz y mis dos hermanos, 
Nacho y Víctor y por otra parte Santia- 
go Morga y Jesús Alonso. 



En poco tiempo DINAMIC ha 
conseguido un lugar de excep- 
ción entre los fabricantes de sof- 
tware para MSX. Hemos queri- 
do charlar con ellos y conocer 
un poco de la historia de este gru- 
po de jóvenes programadores. 

¿Y qué ordenadores utilizamos? Al 
principio el Spectrum porque era el 
único que funcionaba en España. ¿Y la 



Vi 



Vemos aquí a los principales componentes de DINAMIC "en su salsa". 
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fecha de comienzo? Pues nosotros to- 
mamos como fecha de comienzo el día 
18 de mayo de 1984 que es la fecha en 
la que vendimos el primer programa. 

-¿Ha crecido mucho DINAMIC 
desde el momento de su creación has- 
ta lo que es- hoy en día? 

¿Qué si ha crecido mucho? Pues sí, 
desde los cinco que montamos DINA- 
MIC hasta las cien personas que están 
colaborando con nosotros ahora la di- 
ferencia es grande. ¿Y nuestros pro- 
vectos de futuro crecimiento? Desde 
luego, los 16 bits. Los juegos en 8 bits 
dominan ahora el mercado pero cada 
vez la tendencia va hacia los 16 bits, 
juegos que van a ser increíbles. 



Estamos trabajando para SPEC- 
TRUM, AMSTRAD, COMMODORE 
y MSX, eso a nivel de 8 bits. A nivel de 
16 bits estamos trabajando ya en los 
dos primeros proyectos para PC y 
Compatibles, y nuestras miras se cen- 
tran en ATARI ST, COMMODORE 
AMIGA,yMSX-2. 

-¿Qué tipo de Soft abarcáis?, ¿Sólo 
juegos, aplicaciones...? 

Aquí la respuesta es contundente, 
sólo juegos. DINAMIC es una compa- 
ñía especializada en producir juegos, 
vídeo juegos en España, los mejores del 
mercado, y no nos interesan por el mo- 



mento otras áreas de programación. 

-¿Qué criterios se utilizan para de- 
finir el juego: ideas, sondeos...? 

-Bueno principalmente ideas, aun- 
que también hacemos sondeos de opi- 
nión entre nuestros clientes, para deni- 
fir qué tipo de juego prefieren; y a nivel 
de ideas, realmente surgen de dos par- 
tes, o bien del programador, o bien del 
equipo de grafístas. Entonces, depen- 
diendo del equipo que tenga la idea se 
va más hacia el lado de la programa- 
ción o hacia los gráficos. El producto 
final es siempre una combinación de 
los dos equipos que integran el proyec- 
to, tanto grafístas como programado- 
res. 

-¿Cuáles son ¡os pasos a seguir des- 
de la idea del juego a su edición final? 

El primer paso es tener la idea ¿qué 
se va a hacer? Partiendo de ese princi- 
pio, luego es reunir el equipo. En un 
programa que se trabaje por ejemplo, 
para cuatro formatos, SPECTRUM, 
AMSTRAD, COMMODORE, MSX, 
puede intervenir un equipo de alrede- 
dor de veinte personas. Se reúne el 
equipo y se definen las tareas de cada 
elemento del equipo, quién va hacer 
cada parte, en qué ordenador. Una vez 
que está claro el plan de trabajo se em- 
piezan a hacer las primeras pruebas, se 
corrigen los errores, se ven todas las 
posibilidades, poco a poco se va avan- 
zando en el juego hasta que se tienen 

En este momento es cuando intervie- 
nen los testeadores, ven, prueban, ven 
como se podría mejorar. Aquí ya se em- 
piezan a depurar los errores que pue- 
dan haber, y sobretodo lograr el máxi- 
mo nivel de adicción del juego. Una vez 
el juego está acabado se realiza el pre- 
master, para hacer luego el master y 
editarlo. Paralelamente a todo este 
proceso, el equipo artístico ha ido dise- 
ñando primero lo que es la carátula, los 
elementos que han de intervenir para 
llamar la atención. Luego el equipo de 
diseño de las carátulas hace fotomecá- 
nica, imprenta y publicidad. Estos son 
a rasgos generales los pasos que se dan. 

-¿En qué ordenador se realizan los 
juegos? 

Nosotros trabajamos en principio, 
en dos máquinas, por un lado los AMS- 
TRAD 6128 y por otro lado los PC 
COMPATIBLES. A nivel de 8 bits se 
utiliza el AMSTRAD, de ahí se genera 
la versión en SPECTRUM y de SPEC- 
TRUM a MSX. La de COMMODORE 
es totalmente aparte ya que se trabaja 
exclusivamente -sobre COMMODO- 
RE 64 y 128. A nivel de 16 bits se traba- 
ja en PC y de ahí se pasa a otras máqui- 
nas. 

-¿Cuántas personas colaboran nor- 
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Entrevista 



mahnente en la realización de un sólo 
programa? 

Como ya hemos comentado antes, 
para cuatro formatos vienen a trabajar 
unas veinte personas, desde programa- 
dores, diseñadores gráficos, el director 
del equipo, los diseñadores de las ma- 
quetas, el dibujante. A nivel de soporte 
de grafistas, los diseñadores de gráficos 
a nivel de papel; para un nivel de cua- 
tro formatos un equipo de veinte per- 
sonas es bastante habitual. 

-¿Qué técnica de depuración se uti- 
liza? 

En principio es realizar una pre-ver- 
sión en la cual todo el mundo la prue- 



ba, la testea, y saca los errores que pue- 
dan haber. Todo el mundo da sus opi- 
niones, las que pasan adelante se cam- 
bian, y las que no se dejan tal y como es- 
tán. Es un proceso bastante entreteni- 
do y al que se dedica bastante tiempo. 

- Y respecto al MSX, ¿cómo os deci- 
disteis a editar vuestros juegos en este 
sistema? 

Nosotros en DINAMIC empezamos 
en MSX un poco casi por casualidad. 
No pensamos que fuera un mercado 
interesante, ni que fuera una máquina 
de muchas posibilidades, hasta que de 
pronto entró un HIT BIT en la oficina 
y realmente nos viciamos todos. A par- 
tir de ahí empezamos a hacer versiones 



de nuestros juegos para MSX y las ven- 
tas fueron sensacionales, lo que nos 
animó a seguir. Desde entonces esta- 
mos trabajando en MSX a tope. Lo que 
queremos es conseguir ser DINAMIC 
número uno en MSX. Vamos a prepa- 
rar bastantes cosas para Navidades a 
nivel de MSX porque pensamos que es 
un mercado muy interesante. 

Aquí finalizamos esta interesante en- 
trevista, que esperamos os haya intere- 
sado, y que os sirva de aliciente a la 
hora de programar vuestros propios 
juegos. Como DINAMIC nos demues- 
tra día a día, el software español puede 
situarse en el número 1 siempre que se 
lo proponga. 



SENSACIONAL CONCURSO 




A la vista del interés que suscitan entre nuestros lectores, los aparatos de la 
segunda generación, nuestra revista organiza un "concurso relámpago", cuyo 
premio será un MSX-2 SONY HIT BIT F9S. 

El modo de participar en este concurso no puede ser más sencillo: Durante los 
meses de julio, agosto, septiembre y octubre, aparecerán en esta revista las 
letras M, S, X y el número 2 respectivamente. Para poder entrar en el sorteo del 
aparato, deberá remitirse a esta redacción -durante todo el mes de octubre- el 
anagrama MSX2 formado con las letras aparecidas en los sucesivos números. 
El plazo para la recepción de estos programas finalizará el día 2 de noviembre 
de 1987, y entre todos los recibidos hasta esa fecha sortearemos el fabuloso 
SONY HB-F9S MSX2. 

Nota importante: Sólo se aceptarán las letras originales. 
Las fotocopias serán automáticamente invalidadas. 





JULIO 





AGOSTO 









SEPTIEMBRE 




OCTUBRE 
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Una nueva gene: 



Español— 




Una nueva empresa de software 
ha surgido en el panorama na- 
cional. Se trata de Walter Mi- 
11er, un nombre que dentro de 
poco nos será muy familiar. Co- 
mentamos sus cinco primeros 
cartuchos. 



Uno de los problemas endémicos 
del software español es la esca- 
sez de buenos programadores. 
Si echamos un vistazo al panorama del 
software "consumido" en nuestro país 
nos damos cuenta de que existe un ele- 
vadísimo consumo del software de im- 
portación. Esto se debe, entre otras 
causas, a la escasez de programas desa- 
rrollados en nuestro país. 

Walter Miller es una empresa joven, 
que se ha lanzado al mundo del softwa- 
re en cartucho con grandes dosis de 
originalidad y con grandes ideas. En 
este número comentaremos sus cinco 
primeros cartuchos. Dos de ellos son 
un par de divertidos juegos para los 
más pequeños, los otros tres, enmarca- 
dos dentro de la serie ORO de Walter 
Miller son dos cartuchos de utilidades 
y un tercero que contiene un programa 
de diseño. 



DESDE LOS MAS 
PEQUEÑOS... 



Dentro de los productos que ha lan- 
zado Walter Miller al mercado se en- 
cuentra una serie de programas de en- 
tretenimiento para los más pequeños. 
Estos juegos, dirigidos a niños a partir 
de 4 años son un interesante reto a la 
memoria de los pequeños. 

Desde siempre los juegos educativos 
han pecado por la escasa calidad de sus 
gráficos. Erróneamente se supone que 
los pequeños no tienen capacidad de 
crítica, y para ellos cualquier programa 
es bueno. 

Los programas que Walter Miller in- 
cluye dentro de su serie para los peque- 
ños cuentan con unos excelentes gráfi- 
cos que los hacen muy atractivos para 
los pequeños. Pero además una ade- 
cuada dosis de dificultad hace que es- 
tos programas estén perfectamente 
adecuados para el mercado al que van 
dirigidos. 

hoy comentamos son "Droids" y 
"Ewoks". El juego, en ambos casos, 
consiste en recomponer un rompeca- 
bezas que formará un divertido dibujo 
sobre el tema del programa. La única 




Vemos aquí una de las pantallas del juego "Ewoks" que, como se puede ver, cuenta con un excelente 
grafísmo. 



diferencia entre ambos programas es el 
gráfico utilizado, correspondientes a 
los conocidos "Droids" y "Ewoks" res- 
pectivamente. 

Al empezar el juego, y por unos po- 
cos segundos, se nos mostrará la panta- 
lla final. Acto seguido ésta se recubrirá 
de 36 recuadros iguales. Ahora, con el 
dibujo completamente recubierto de 
recuadros, debemos teclear un número 
del 1 al 36. Hecho esto aparecerá en 
una ventanilla una de las piezas del 
rompecabezas, que debemos colocar 
mediante las flechas del cursor en el lu- 
gar que corresponda dentro del dibujo. 

En caso de ser correcta nuestra res- 
puesta aparecerá el recuadro corres- 
pondiente en la pantalla y, de este 
modo, y tras sucesivos aciertos podre- 
mos recomponer todo el dibujo. 



Pero evidentemente el juego no pue- 
de ser tan fácil. Todos nuestros desve- 
los por retornar la imagen a su aspecto 
original luchan contra el tiempo, ya 
que sólo disponemos de 5- minutos 
para la consecución del juego. 

En definitiva se trata de dos diverti- 
dos juegos que, gracias a sus excelentes 
gráficos harán las delicias de los más 
pequeños de la casa (aunque estamos 
seguros que no sólo ellos jugarán...) 

...A LOS MAS GRANDES 

Pero Walter Miller también se 
acuerda de los forofos de la programa- 
ción. Dentro de su serie ORO nos lle- 
gan dos cartuchos muy útiles para 
aquellos que desarrollan programas. 

El primero de ellos es ' 
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11er", una ampliación de memoria de 
64 Kb. Muchos de nuestros lectores di- 
rán ¿y para qué quiero una ampliación 
de memoria? Esta ampliación de me- 
moria tiene algo que la hace muy espe- 
cial. Se trata de una ampliación que 
contiene en su interior 64 Kb de RAM. 
Gracias a esto, ya que ocupa toda la 
memoria de un slot, podemos utilizarla 
paralelamente al BASIC. Es decir, po- 
demos almacenar simultáneamente 
dos programas BASIC en la memoria 
del ordenador sin necesidad de com- 
plicadas rutinas en ensamblador, basta 
para ello una sencilla instrucción OUT 
y habremos pasado de un listado al 
otro. Esto se debe a que este cartucho 
dispone de un banco de RAM en las 
mismas posiciones de memoria que la 
RAM del BASIC. Por tanto podemos 
intercambiar la memoria y mantener 
de ese modo dos programas simultá- 
neamente. 

Yendo un poco más lejos, y con un 
par de sencillas rutinas en ensambla- 
dor, es muy fácil conseguir 28 Kb para 
almacenamiento de programas y otros 
64 para datos, con lo que se puede ven- 
cer el límite de 28 Kb del BASIC. 




HOME COMPUTER GAME 

- Mgy 



Los juegos de Walter Miller tienen una buena 
presentación exterior. 




Como veis, se trata de una ampliación 

ESPECIAL MSX 2 

Haciéndose eco de los problemas de 
los usuarios de los ordenadores MSX 
de segunda generación, Walter Miller 
ha desarrollado un cartucho muy espe- 
cial, el MultiMiller. 

MultiMiller es un cartucho que re- 
configura el sistema operativo de los 
MSX-2, de forma que permite la carga 
de la práctica totalidad del software de 
MSX-1. Aunque en la publicidad que 
se hace del cartucho se indica que la 
compatibilidad obtenida es del 100% 
nuestras pruebas han dado con algu- 
nos programas "rebeldes". Sin embar- 
go no deja de ser una indispensable uti- 
lidad para los usuarios de MSX-2. 

A partir de ahora prácticamente 
todo el software del mercado podrá ser 
utilizado con los ordenadores MSX de 
segunda generación v todo ello sin ne- 
cesidad de POKE& pseudomágicos 
ue funcionan sólo en ciertos ordena- 
ores y con algunos programas. 

LA UTILIDAD GRAFICA 

El último cartucho de Walter Miller 
que hoy comentamos es "Miller 
Graph". Se trata de un completo pro- 
grama de diseño gráfico que funciona 
en los MSX, tanto de primera como de 
segunda generación, aunque en este 
caso sólo puede utilizarse con la resolu- 
ción de los aparatos de la primera, es 
decir, como si utilizásemos SCREEN 
2. 

El programa, que utiliza menús y 
submenús, puede ser utilizado indis- 
tintamente con las teclas de control 
del cursor, ratón, lápiz óptico o tableta 
gráfica, con lo que se convierte en un 
excelente programa para la realización 
de cualquier tipo de gráfico. La facili- 
dad para utilizar todos estos periféricos 
hace que la generación de gráficos pue- 
da ser muy sencilla. Por ejemplo, con 
una tableta gráfica podemos "calcar" 
cualquier dibujo e introducirlo de esta 
forma en el ordenador. 

Todos los menús aparecen en la últi- 
ma línea de la pantalla. En esa línea 
aparece la opción en curso. Podemos 
desplazar por esa línea el resto del 
menú hasta que aparezca la opción de- 
seada. Una vez seleccionada aparecerá 
el submenú correspondiente, o bien se 
ejecutará si se trataba de una opción di- 
recta. Veamos las principales opciones 
de este programa. 
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"Droids" es otro de los juegos de Walter MUIer para los más peque- Miller Graph, un interesante programa para el desarrollo de gráficos. 



El primer submenú dentro del menú 
principal es "DIBUJAR". Dentro de 
este submenú podemos trazar líneas 
rectas, cuadrados y rectángulos llenos 
o vacíos, rellenar figuras incluso con 
colores diferentes a los del contorno, 
etc. 

Especial mención merecen dos op- 
ciones de este submenú. La primera de 
estas opciones es la de realización de 
curvas, que nos permite dibujar arcos, 
elipses y circunferencias. 

Para realizar el dibujo de cualquiera 
de estas curvas hemos de seguir el si- 
guiente proceso. En primer lugar debe- 
mos marcar el centro de la figura curva. 
A continuación, con las teclas del cur- 
sor podemos aumentar los radios hori- 
zontal y vertical hasta fijar la circunfe- 
rencia o elipse que deseemos. En todo 
momento aparecen en pantalla unos 



cuantos puntos que marcan el recorri- 
do que seguirá la figura que vamos a di- 
bujar, con lo que es muy cómodo reali- 
zar cualquier dibujo de este tipo. Si lo 
que queremos dibujar es un arco he- 
mos, a continuación, de marcar los 
puntos de inicio y final. 

Otra opción interesante es la de tra- 
zado, que nos permite dibujar "a nues- 
tro aire" con un grueso variable. 

Esta opción, utilizada con una table- 
ta gráfica o lápiz óptico, puede permi- 
tir Ta realización de gráficos de gran ca- 
lidad. 

Otras opciones que podemos encon- 
trar en otros menús del programa in- 
cluyen seleccionar el color del dibujo o 
del fondo, del sprite que controla el 
cursor, escribir caracteres, así como 
grabar y leer el dibujo, de cinta o disco, 
borrar la pantalla, etc. 



Finalmente podemos realizar volca- 
dos de los dibujos de la pantalla sobre 
la impresora, seleccionando entre un 
tramado de 6 o 16 colores. 

EL FUTURO 

Pero esto no es todo, Walter Miller 
anuncia ya la aparición de dos nuevos 
programas, de "arcade" en esta oca- 
sión. Sus títulos son "Ewoks and the 
Dandelion Warriors" y "Droids. The 
Withe Witch", dos apasionantes jue- 
gos de arcade con unos gráficos dignos 
de sus hermanos de la serie azul. Y es- 
peramos más. Walter Miller promete 
ser una empresa con ideas, y esperamos 
que muy pronto nos suene más este 
nuevo nombre en el panorama del soft- 
ware nacional. 



SUSCRIBETE A 

Suscribiéndote no sólo tienes la seguridad ele tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



Nombre y apellidos 

Calle N.° 

Ciudad \ Provincia 

D. Postal Teléfono 

Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER. S.A. - C/T Roca i Batlle, 10-12 - 08023 Barcelona 

Tarifas: España por correo normal Ptas. 2.750,- 
Europa por correo aéreo Ptas. 3.500- 
América por correo aéreo USA$ 35USA$ 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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Siguiendo con el artículo que 
trata sobre la programación es- 
tructurada, nos centraremos 
ahora en las sentencias de con- 
trol de flujo de un programa, re- 
solución de problemas median- 
te refinamientos sucesivos, aná- 
lisis algorítmico y unos cuantos 
consejos sobre como hacer tus 
programas en Basic mucho más 
claros y eficaces. 



Dos características fundamenta- 
les e indispensables en todo 
programa son la selectividad y 
repetición en la ejecución de senten- 
cias. 

- Las sentencias que se repiten. 

- El test o prueba de condición que 
motivará el que se repita o no las sen- 
tencias anteriores. 

Para la ejecución selectiva (o condi- 
cional) necesitaremos los siguientes 
tres componentes: 

- Una condición cuyo valor lógico se 
prueba o pregunta. 

- Un grupo de sentencias que se ejecu- 
tarán si la condición se cumple. 

- Un segundo grupo de sentencias que 
se ejecutarán si la condición no se 
cumple. 

Una vez definido muy someramente 
el concepto de repetición y condicio- 
nalidad, pasaremos a describir las prin- 
cipales instrucciones que utilizan los 
lenguajes para controlar el flujo de un 
programa. 



WHILE 



* Sentencia WHILE: 
Hacer mientras grupo de condicio- 
nes se verifiquen: 
Sentencias: 

Fin grupo sentencias pertenecientes 
al WHILE. 

Traducido a un lenguaje como el 
Pascal sería: 

while CONTADOR < 10 do 
begin 

SENTENCIA 1; 
SENTENCIA N: 

end; 

Esta sentencia de control se ejecuta- 
rá mientras CONTADOR sea menor 
que diez. La comparación de si CON- 
TADOR es menor que diez la hace an- 
tes de ejecutar ninguna sentencia, esta 
es una de las características de la ins- 
trucción WHILE. 



Concretamente, para el Basic MSX 
no existe esta instrucción, pero puede 
ser sustituida por otras instrucciones 
parecidas. 

REPEAT 

* Sentencia REPEAT: 
Repetir; 

grupo de sentencias; 

hasta que grupo de condiciones no 
se verifiquen. 

Es igual a la instrucción anterior, 
solo que el grupo de instrucciones se 
repite por lo menos una vez, ya que 
mira la condición de verificación des- 
pués de ejecutadas las instrucciones. 

Un ejemplo utilizando el Pascal se- 
ría: 

repeat 

SENTENCIA 1; 

SENTENCIAN; 

untÜ CONDICION=CIERTA; 

En Basic MSX ocurre igual que con 
la anterior. 

IF... THEN 

* Sentencia IF: 

si grupo de condiciones se verifican 

entonces hacer; 

grupo de sentencias; 
fin grupo de sentencias que verifi- 
can las condiciones: 
si no verifican las condiciones hacer; 
segundo grupo de sentencias; 
fin grupo de sentencias que no veri- 
fican las condiciones; 
Traducido a un lenguaje como el 

Pascal sería: 



ifCO> 
begin; 



N= CIERTO then; 
SENTENCIA 1; 



SENTENCIAN; 
end; 



else; 
begin; 

SENTENCIA 1; 

SENTENCIA M; 
end; 

En Basic existe esta 
pero las sentencias a ejecutar en cí 
que se cumpla la condición deben ir 
juntas, separadas solo por dos puntos, 
y en la misma línea donde se hace el IF, 
al igual ocurre con el ELSE. 



CASE 

* Sentencia CASE: 

Esta instrucción nos permite elegir 
una entre varias alternativas de acción 
(más de dos). 

La selección de una de estas alterna- 
tivas se hace mediante un selector (que 
suelen ser de tipo numérico) y varios 
grupos de sentencias etiquetadas por 
una constante del tipo del selector. 

La sentencia CASE selecciona para 
su ejecución aquel grupo de sentencias 
cuya etiqueta sea igual al valor actual 
del selector. Si no existe la etiqueta co- 
rrespondiente, el efecto es indefinido. 
Una vez ejecutado el grupo de senten- 
cias, el control del programa pasa al fi- 
nal de la sentencia CASE. 

Su formato general es: 

caso SELECTOR sea igual a: 

ETIQUETA 1: hacer grupo de sen- 
tencias; 

fin grupo de sentencias ETIQUETA 1 

ETIQUETAN: hacer grupo de sen- 
tencias; 

fin grupo de sentencias ETIQUETA N 
•fin caso 



case DIA of 

DOM: SENTENCIA 1; 

JUE: SENTENCIA 5; 
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end; 

En Pascal el número de sentencias 
por etiquetas es solo de una. 

En Basic, este tipo de instrucción se 
podría ejecutar con un ON N 
GOTO... 



FOR... NEXT 



* Sentencia FOR: 

Para variable de control = valor ini- 
cial hasta valor final. 

Incrementando o decrementando 
N unidades la variable de control ha- 
cer; 

grupo de sentencias; 
Fin grupo de sentencias pertene- 
cientes al bucle FOR 

En Pascal quedaría de la forma: 

for VARIABLE: =M downto N do 
SENTENCIA 1; 



SENTENCIAN; 



end 

En Basic sería el ya conocido (su- 
pongo vaya) bucle FOR... Í^EXT. 



GOTO 

* Sentencia GOTO: 

Es un salto incondicional hacia la 
parte del programa especificada en la 
etiqueta que sigue al GOTO. Es la 
sentencia menos utilizada por hacer el 
programa altamente ilegible además 
de no ser casi nunca necesaria. 

Esta sentencia se utiliza muchísimo 
en Basic MSX (demostrando así que 
no es del todo un lenguaje estructura- 
do), por eso vamos a poner un ejem- 
plo utilizando este lenguaje: 

10R=INT (RND(1)*10)+1 
20 INPUPUn número (de 1 a 10)"; A 
30 IF A<R THEN GOTO 70 
40 IF A< R THEN GOTO 90 
60 PRINTTREMIO !!!!": END 
70 PRINT"Mayor ..." 
80 GOTO 20 
90 PRINT"Menor ..." 
100 GOTO 20 

Con esto, ya hemos finalizado las 
sentencias de control, empezamos aho- 
ra con la resolución de problemas me- 
diante refinamientos sucesivos: 



REFINAMIENTO SUCESIVO 

El concepto de refinamiento sucesi- 
vo se basa en la famosa frase "divide y 



vencerás", que traducido a nuestro 
tema viene a decir que hay que desglo- 
sar el problema en varios problemas 
menores (es decir, si queremos hacer 
un programa, debemos dividirlo en va- 
rias partes, cada una de las cuales se en- 
cargue de una tarea especifica, p.e. si 
queremos hacer un juego de marciani- 
tos, tenemos que desglosarlo en hacer 
un programa que lea el teclado, otro 
que ponga nuestra nave en pantalla, 
etc..) 

Una definición más completa del re- 
fino progresivo nos la dará Niklaus 
Wirth: 

"Para construir un programa com- 
plejo, se parte de una descripción lo 
más detallada posible del problema 
(nivel 1). Se descompone en varios sub- 
problemas que serán más o menos in- 
dependientes entre sí: Llamamos a esta 
descomposición Nivel 2. Volvemos a 
aplicar este enfoque simple a cada uno 
efe los subproblemas, con ello puede 
ser que para alguno (o todos) los sub- 
problemas fuera trivial su solución en 
el lenguaje en que se programe, si lo es, 
se escribe y este subproblema ya está 
resuelto; pero si la solución de un sub- 
problema no es trivial, entonces le apli- 
camos a él el refino progresivo o des- 
composición, que ahora será el Nivel 3, 
etc.." 

De esta forma si el problema inicial a 
resolver era muy complejo, podemos 
vernos obligados a llegar a un nivel N 
hasta tener todos los subproblemas de- 
rivado triviales o inmediatos. 

El último punto específico sobre la 
programación estructurada es el anáÜ-" 
sis algorítmico, el cual pasamos segui- 
damente a describir: Una parte funda- 
mental es la modularidad y estructura- 
ción del programa. 



Todo programa ha de comenzar con 
una cabecera que lo identifique, zona 
de declaración de constantes del pro- 
grama (para que modificadas en la ca- 
becera se modifiquen automáticamen- 
te en el resto del programa), zona de 
declaración de variables y su tipo, zona 
de declaración de las funciones a utili- 
zar en el programa, zona de declara- 
ción de los procedimientos, y por fin, el 
cuerpo del programa principal. Todas 
estas partes han de hacerse utilizando 
los conceptos anteriormente explica- 
dos sin caer en las particularidades de 
cada lenguaje para universalizar el al- 
goritmo del programa y poder aplicar- 
lo a cualquier lenguaje estructural. 



¡EL "W0 VA MAS" DE 



LASVIDEOVENTUIlASü 




Conviértete en el 
mago que debe destruir 
el hechizo del castillo 
diabólico por sólo 800 
ptas., (las mejor em- 
pleadas de este verano). 

Una apasionante vi- 
deojuego que une a sus 
excelentes gráficos esos 
elementos de acción e 
intriga que hacen impo- 
sible "despegarse" de la 
pantalla del monitor. 
¡¡Pídelo antes de que se 
agote!! 



Nombre y Apellidos: 
Dirección: 



Población: 

Provincia: 

□ Deseo recibir: 



CP. 



I 

= ^ = ^^ = ^ == I 

El importe de mi pedido lo hago efec- | 
tivo mediante: 

□ Cheque adjunto a nombre de: 
MANHATTAN TRANSFER, SA_ 
C/RocayBatlle, 10-12, bajos. 
08023 Barcelona 



¡YA ESTA AQUI!!! 



NO ES UN JUEGO DE "MAECIA2TOS" 

NO ES UN JUEGO DE AVENTURA 
NO ES UN PROGRAMA DE UTILIDAD 
Es... ¡¡LOTO!! 




El programa que puede hacerte 

millonario 
¡¡El complemento ideal a nuestro 
programa de quinielas, de probados 

resultados!! 
¡La manera más barata de hacer más 
combinaciones! 



Y TAN SOLO 



POR 800 PTAS. 



Pídelo hoy mismo, 
mañana sen 



Nombre y Apellidos: 



Dirección: 



Población: 

Provincia: 

□ Deseo recibir: 



CP. 



El importe de mi pedido lo hago efec- 
tivo mediante: 

□ Cheque adjunto a nombre de: 
MANHATTAN TRANSFER, SA. 
C/Rocay Batlle, 10-12, bajos. 
08023 Barcelona 
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Para finalizar y con algo que no está 
precisamente relacionado muy directa- 
mente con la programación estructura- 
da, procederemos a citar algunas nor- 
mas y consejos a seguir a la hora de ha- 
cer un programa en Basic, los cuales 
permitirán programar con mayor rapi- 
dez, aumentar el rendimiento general 
del programa y hacerlo mucho más le- 
gible para cualquier persona que lea el 
programa, procederemos ahora a citar 
dichas normas y consejos: 

CONSEJOS EN BASIC 

* Existen unos valores que se suelen 
usar siempre para unas funciones de- 
terminadas estos son: 
-I,TJ: Bucles FOR NEXT, se suelen 

utilizar en este orden. 
-N: Se suele utilizar como contador 

(de la forma N=N+1). 
-X,Y: Sirven para representar la posi- 
ción X e Y de un Sprite o simi- 
lar. 

-R: Para adjudicar un valor aleatorio 
de la forma R=INT(RND(1)*3). 
-D: Se usa para leer el STICK, de la 

forma D=STICK(0). 
-C: Si el color no es constante, se pue- 
de almacenar en este valor. Pese a 
esto, en un programa más o menos 
largo, existe siempre el problema 
de utilizar una misma variable 
para dos funciones, lo que puede 
provocar errores muy difíciles de 
detectar, para remediarlo, convie- 
ne (y veréis lo bien que se progra- 
ma si lo hacéis) hacer una tabla de 
valores, en la cual ponéis todas las 
letras del alfabeto en columna y 
las volvéis a repetir pero con el sig- 
no $ detrás (para las variables alfa- 
numéricas), y cuando en el pro- 
grama preciséis de una variable, 
empezáis con coger la primera (a 
no ser que correspondan a las an- 
tes mencionadas, en cuyo caso co- 
géis la adecuada), y ponéis al lado 
de la variable para que la utilizáis, 
así de un solo golpe de vista po- 
déis ver las variables libres y para 
qué se usan las ocupadas, lo mis- 
mo ocurre con las variables alfa- 
numéricas, pongamos un ejem- 



plo: 



en 



A- Número de teléfono. 

línea 30. 
B- Edad. Se entra en línea 50. 
C- Número de hermanos, se le suma 

uno para dar el total. Línea 60. 
A$- Nombre. Se entra en línea 10. 
B$- Apellido. Se entra en línea 20. 



C$- Dirección. Se entra en línea 40. 

10 INPUT " NOMBRE : " ; A$ 
20 INPUT"APELLIDO:";B$ 
30 INPUT"TELEFONO:";A 
40 INPUT"DIRECCION:";C$ 
50 INPUT"EDAD:";B 
60 INPUT"NUMERO DE HERMA- 
NOS:"^ 

70 PRINTTe llamas"; A$;" "; B$;", 
tienes"; B; "años, sois"; C+l; 
"hermanos, y vives en ";C$;", 
Tel."; A 

80 END 

*Si queréis dar más velocidad a un 
programa, poned DEFINT A-Z al 
principio del programa (en caso de uti- 
lizar alguna variable que pueda tener 
un valor muy alto, ponéis algo parecido 
a DEFINT A-F, H-Z para sacar la 
G). También se puede usar el signo % 
después de la variable, pero ocupa más 
memoria, hace el listado poco estético 
y puede ser origen de errores por haber 
omitido el % en alguna variable, de 
manera que no es recomendado su uso. 

* Para poder hacer el listado mucho 
más claro, al poner el REM, ponedlo 
con un " "' en vez de la palabra REM, y 
seguidlo del carácter CHR$(219) 
(GRAPH+P) repetido cuantas veces 
se quiera (cuanta más importancia ten- 
ga, más "tacas"), ya que este carácter se 
ve fácilmente al hacer un LIST del pro- 
grama. Después de las "tacas" ponéis 
de qué trata lo que viene a continua- 
ción del REM. 

* A la hora de hacer un GOTO o un 
GOSUB, procurad que no lo haga a 
una línea donde haya un REM, ya que 
al finalizar el programa puede que os 
quedéis cortos de memoria, teniendo 
que quitar las líneas de REM (o simple- 
mente para hacer el programa más 
compacto), dándose entonces el caso 
de que tendréis que modificar todos lo 
GOTOs o los GOSUBs a nuevos nú- 
meros de líneas por ya no existir los nú- 
meros a los que ellos saltaban. 

* Y como último consejo, aprove- 
chad la ventaja que nos ofrecen las te- 
clas de función, p.e. al pasar un progra- 
ma, si vemos que una palabra se repite 
mucho (DATA, etc.), ponemos KEY 
1, "DATA", con lo que sólo pulsando 
Fl nos saldrá dicha palabra. Para los 
que trabajan con Assembler, poniendo 
KEY 2,"A = USR(0) + CHR$(13) y 
KEY 3, "DEFUSR = 32800" + 
CHR$(13) tendríais definida una di- 
rección de ejecución y su llamada, aho- 
rrándoos el i 
birla. 



¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE HSXCLUB DE MAIUNC PUEDES ADQUIRIR 



FMHBIJi 



BggSBSSm 




Deja el manual de lado, inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 ptS. 




Note quedes 
al margen 
Y disfruta 
de las tarjetas 
inteligentes. 
Lo último 
en soft. 
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I Dirección 

I Población CP Prov 

| □ Tutor Basic Ptas. 3.500- □ Adaptador BeeCard Ras. 2.850,- 

■ □ SweetAcorn Ptas. 5.200- □ Backgammon Ptas. 5.200- 

I □ Barn Stormer Ptas. 5.200- □ Chock'n Pop Ptas. 5.200 ,- 



I Gastos de envío por cada producto 100 - pts. Remito talón bancario de 
Transfer, S. A. Enviar a MSX CLUB de MAILING, Roca i Batlle 1 0-1 2 baje 



□ Adaptador Softcard Ptas. 2.850 - 

□ Shark Hunter Ptas. 5.200- 

□ Le Mans 2 Ptas. 5.200 - 

pts. a la orden de Manhattan 
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TERMINATOR 

ELJOYSTICK DEFINITIVO 

Con TERMINATOR obtendrás más acción y las más altas puntuaciones. Pon TERMINATOR en tus manos y 
.comienzas a ser imbatible. Diseñado y fabricado en Dinamarca para ofrecerte un producto de máxima calidad. 

PIDELO A TU DISTRIBUIDOR LOCAL ¡YA! 

Terminator es una marca registrada de Super Soft (Dinamarca) 
Importado y distribuido por ZAZA SOFT. Pje. Josep Lloverás, 5. Atico D - 08021 Barcelona Tel.: (93) 417 69 75. 



